perl remove last character from string code example

Example 1: string remove last character

public static String removeLastCharacter(String str) {   
	String result = null;   
    if ((str != null) && (str.length() > 0)) {      
    	result = str.substring(0, str.length() - 1);   
    }   
    
    return result;
}

Example 2: remove last character string

let str = "Hello world"
let strWithoutLastChar = str.substring(0, str.length - 1)