($chopped) = $s =~ s/^(.)//s;
# or
$s =~ s/^.//s;