substr($s, 0, 1, "");

substr($s, 0, 1) x= 0;

$s =~ /.(.*)/s and $s = $1;

open $s, "<", \$s; seek $s, 1, 0; local $/; $s = <$s>; # using no _addittional_ vars

$s = substr $s, 1;

$s = substr $s, 1, ~0>>1, "JAPH";

$s=~s
s.sss;