[dfa/Cursor] Implement backslash escapes for character classes
[pugs.git] / util / prune_profile.pl
blob6cc0b83ec48fc5d07947bcdf2151afe355daf5d7
1 #! /usr/bin/perl -n
2 print if /([1-9]00|[1-9]0|[1-9])\.[0-9][ ]+[^ ]+$/