if ($irgendwas =~ /(blabla)/) {
  print "ok: $1\n";
}