Sean, you could've used
$regml(1)
instead of
$mid($1,2)
Also, a $ and /S are recommended
/^!(epic|stupid|gay)$/iS