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