$string = 'perl345';
$_ = $string;
chop;
chop;
chop; #!
$string = $_;