if (($keep, $junk) = split(/\.\.ng:/m, $p)) {
$keep =~ s/^\t\.frame.*\n/\t.frame \$30,0,\$26,0\n/m;
$keep =~ s/^\t\.(mask|fmask).*\n//gm;
if (($keep, $junk) = split(/\.\.ng:/m, $p)) {
$keep =~ s/^\t\.frame.*\n/\t.frame \$30,0,\$26,0\n/m;
$keep =~ s/^\t\.(mask|fmask).*\n//gm;