($_) = /.(.*)/s;
# or
$_ = substr($_, -length($_)+1);
# or
/./s and $_ = $';