#  One way...
$s = join '', ( split //, $s )[ 1 .. length($s) - 1 ];
print $s, $/;