daily pastebin goal
62%
SHARE
TWEET

Untitled

a guest Jul 11th, 2018 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2.  
  3. # regex debugger
  4.  
  5. while (<>) {
  6.         chomp;
  7.         (/high(\s+|\-)speed\s+(purs(uit|ue))?(chase)?/) ? print "$`<$&>$'\n" : print "No match\n";
  8. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top