Write a perl program that reads in the attached data file and obfuscates/de-identifies personally identifiable information writing the obfuscated/de-identified data out to a new file for later transfer. The data in the de-indentified file should contain the following data fields in the following order:

The inputfile data

ID,Last,First,Sex,Street,City ,State,Zip,DiagCode,PayerCode

123-45-6789,Jackson,Jack,M,123 Street St.,Denton,TX,76209,455,3

123-45-6788,Smith,Sue,F,456 Street St.,Denton,TX,76209,455,3

123-45-6787,Jones,Joe,M,789 Drive Dr.,Denton,TX,76209,122,2

123-45-6786,Farmer,Fanny,F,987 Drive Dr.,Denton,TX,76209,455,3

123-45-6785,Sanderson,Sandy,F,222 Road Rd.,Lewisville,TX,75209,45,1

123-45-6784,Gordon,Gordon,M,333 Avenue Ave.,Lewisville,TX,75209,245,2

THE OUTPUT FILE SHOULD HAVE

D,PayerCode,DiagCode,Sex,Street,City,State,Zip