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