#!/usr/bin/env perl
while (<DATA>) {
    chomp;
    my $from = $_;
    s/(.)$//;
    my $tail = $1;
    s/\A 0+//x;
    print "$from -> " . $_ . $tail . "\n" ;
}
__DATA__
090
0080
123
0
000