>>506-507
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq6.html#how_do_i_efficiently_match_many_regular_expressions_at_once