Select Code to Download

~>perl -e '@id = (1234,"4323_003"); foreach ( @id ) { s/^(\d{4})$/$1_0
+01/; print $_, "\n"; }'
1234_001
4323_003