does it have to be done in perl? you can do it with one substitution command in sed/vi/ex. you can even save this tiny command script and apply it again whenever you get such a file to mangle again.
in vi:
The point is that I can't use a command line to do it as the file contains another decimal fields, plus i've to run a test on the phone number before i add +615.