: # use perl -*- Perl -*- eval 'exec perl -S $0 ${1+"$@"}' if $runnning_under_some_shell; # clever way of calling perl on this script : stolen from weblint ##!/usr/local/bin/perl # you could try this also! # Skip down to where the objects live. while (<>) { print $_; if (/^\!\d/) { last; } } while (<>) { s/\%[Cc]/\%x/g; s/(\W+)[Ii][Ff][Ee][Ll][Ss][Ee]\(/$1nonzero\(/g; s/(\W+)[Pp][Mm][Aa][Tt][Cc][Hh]\(/$1pfind\(/g; s/(\W+)[Ii][Tt][Ee][Rr]\(/$1parse\(/g; s/(\W+)[Ll][Ii][Ss][Tt]\(/$1loop\(/g; print $_; }