use strict;

my $s = "123456789";

substr($s,0,1)="";
print "$s\n";

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


$s = reverse $s;
chop $s;
$s = reverse $s;
print "$s\n";