Help for this page

Select Code to Download

Select or download this

print  map{ 
    s/\A (.*)(.) \z/$2$1/x; 
...
} (@temp = qw[ A1 A11 A111 A2 A5 A50 ]);

A111 A11 A1 A2 A50 A5

Select or download this

perl> print map{ 
    substr $_, 2 
...
} (@temp = qw[ A1 A11 A111 A2 A5 A50 ]);

A1 A2 A5 A11 A50 A111