or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"my @needles = ('1-2 Steps', '5-7 Steps', '8-10 Steps', 'cAtCh', '*+
+??er',);
...
Found [8-10 Steps] in [move 8-10 steps to hoist]
Found [cAtCh] in [catch the ball]
Found [*+??er] in [dumb *+??ER]