$s =~ s/^.//;
print "$s\n";

##</code><code>##

$s =~ s/.//;
print "$s\n";