foreach (@FILE) { s/[0]{4}\n/\n\@Normal\=\n\@Normal\=\[S\"\",\"Normal\",\"Normal\"\]<\*L\*h\"Standard\"\*kn0 +\*kt0\*ra0\*rb0\*d0\*p\(0,0,0,0,0,0,g,\"U\.S\. English\"\)>\n\@\$\:<\ +*J\*p\(9,\-9,0,9,0,0,g,\"U\.S\. English\"\)>\n/; s/^[0-9]{4}\n/<\*ra\(1,0,K,100,\-9,0,0\%\)\*p\(9,\-9,0,7,0,0,g,\"U\ +.S\. English\"\)>\n<\*ra0\*p\(9,\-9,0,9,0,0,g,\"U\.S\. English\"\ +)>/; s/^[0-9]{4}D\n/<\*ra\(1,0,K,100,\-9,0,0\%\)\*p\(9,\-9,0,7,0,0,g,\"U +\.S\. English\"\)>\n<\*ra0\*p\(9,\-9,0,9,0,0,g,\"U\.S\. English\" +\)>\n\*\*\*\*\*\*DISPLAY\*\*\*\*\*\*\n/; s/()([^ ]*)/$1$2<\$>/; }