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