$regexp = qr/^(get|post)\b/i; "GET / HTTP/1.1"=~m/$regexp/ and print "match\n";