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