Perl Chop Function

chop removes the last character from a variable.

$x = "abcdefg";
chop($x); # $x= abcdefg
$a = chop($x); # $a = g, $x = abcdef