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

##</code><code>##

$s = pack 'A*', unpack( 'xA*', $s ); # ASCII only, please ;)
print $s, $/;