my $regex = qr/(foo)(bar)(foo)/
my $hit = $2; # geht natürlich nicht

# mehr Code

if($bla =~ m/$regex/)
  print $hit;