Re^2: cut of first char of a string

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

I see no reason for the pack. And you're better of using 'a*' not 'A*', unless you really want to trim trailing spaces.

$s = unpack 'xa*', "qwerty  ";
print "'$s'\n";
[download]

Comment on Re^2: cut of first char of a string Select or Download Code