use warnings; use strict; while () { s/(\d)_/$1:/; print; } __DATA__ V12345:name_test V12345_name_test