Help for this page
#!/usr/bin/perl ... sub process2 { lc(shift) . 2 } sub process3 { uc(shift) . 3 } sub process4 { uc(shift) . 4 }
A3 a31 A314 a3142