Select Code to Download

my $what = "fred|barney";
...
if ($_ =~ ($what){3}) { ... }

if ($_ =~ $what{3}) { ... }

if ($_ =~ //) { ... }

if (1) { ... }

my $what = "(fred|barney){3}";
...
if ($_ =~ $what) { ... }

if ($_ =~ /($what){3}/) { ... }
....
if ($_ =~ /$what/) { ... }

if (/($what){3}/) { ... }
...
if (/$what/) { ... }