Convert master.passwd into shadow and passwd

#!/bin/sh
cat master.passwd |perl -p -e 's/(\w*?):(.*?):.*/$1:$2::0:99999:7:::/g' >
shadow.n
cat master.passwd |perl -p -e 's/(\w*?):(.*?):(\d*?):(\d*?):(\d*?):.*?:.*?:
(.*?):(.*?):(.*?)/$1:x:$3:$4:$6,,,:$7:$8/g' > passwd.n