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