Select Code to Download

use constant PATTERN => qr/def/;
if ($string =~ PATTERN) { ... }

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