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