From: the count Subject: 128-bit conversion scripts Hello :) #!/usr/local/bin/perl -i.bak #usage: mobfilt #.mob $D = 0; while (<>) { chop; if (/^\#\d+\s*/) { $D = 1; } if (/^(\w+) (\w+) (-?\d+) (\w)\s*/) { if ($D == 1) { print $1, " 0 0 0 ", $2, " 0 0 0 ", $3, "\n"; $D = 0; } else { print "$_\n"; } } else { print "$_\n"; } } ---------------------------------------------------- #!/usr/local/bin/perl -i.bak #usage: objfilt #.obj $D = 0; while (<>) { chop; if (/^\#\d+\s*/) { $D = 1; } if (/^(\d+) (\w+) (\w+)\s*/) { if ($D == 1) { print $1, " ", $2, " 0 0 0 ", $3, " 0 0 0\n"; $D = 0; } else { print "$_\n"; } } else { print "$_\n"; } } ---------------------------------------------------- #!/usr/local/bin/perl -i.bak #usage: wldfilt #.wld $D = 0; while (<>) { chop; if (/^\#\d+\s*/) { $D = 1 } if (/^(\d+) (\w+) (\d+)\s*/) { if ($D == 1) { print $1, " ", $2, " 0 0 0 ", $3, "\n"; $D = 0; } else { print "$_\n"; } } else { print "$_\n"; } }