if ($string =~ /this@{[ PATTERN ]}that/) { ... }