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