in reply to parsing a very large array with regexps
if (/foo|bar|baz/) { push @biff, $_; }
(Update: fixed typo)
Perl 6 in German -- Difficult Sudoku