sub three {
    my $number = "213";
    my $padded = substr("000000000".$number, -9);
    #print $padded,"\n";
}
##</code><code>##

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;