Select Code to Download

#!/usr/bin/perl -w
use strict;
...
barbazfoo
foofoobar

foo bar  match
bar foo  match
...
baz      no match
barbazfoo        match
foofoobar        match