$str = 'abcde'; substr($str, -1) = ''; print $str, $/;