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