Alter the ranges telephone number to prefix format: by PERL script