time perl patho.pl < ansi.txt 1 real 1m50.970s user 1m50.767s sys 0m0.049s time ./prog ansi.txt ansi.txt #[ -~]*\n %s "/*".*"*/" %s ("return"|"if"|"int"|"char"|"for"|"do"|"while"|"long"|"short"|"signed"|"typedef"|"unsigned"|"struct"|"break") %s [a-zA-Z_][0-9a-zA-Z_]* %s '[^']*' %s \"([^"\\]|(\\.))*\" %s @?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@? real 0m0.027s user 0m0.006s sys 0m0.002s