#!/usr/bin/perl

# regex debugger

while (<>) {
        chomp;
        (/high(\s+|\-)speed\s+(purs(uit|ue))?(chase)?/) ? print "$`<$&>$'\n" : print "No match\n";
}