pizza@pizzabox:~$ perl -le'$r = join "|", qw/ ^foo bar$ /; $rgx = qr{$r}; print int($_ =~ $rgx) . " $_" for qw/boo food bar barf foobar/'
0 boo
1 food
1 bar
0 barf
1 foobar