in reply to cut of first char of a string

I haven't seen these posted yet: 
($_) = /.(.*)/s;
# or
$_ = substr($_, -length($_)+1);
# or
/./s and $_ = $';

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom