Regex als Parameter

[Chris]

Hallo,

wie kann man einen regulären Ausdruck als Parameter an eine Subroutine übergeben?
Ich möchte etwa folgendes machen:

sub machwas {
  my $regex = shift;
  ...
  $text =~ $regex;
}

machwas(/abcd/);
machwas(/def/i);

Also so ähnlich wie das bei grep, split usw. funktioniert. Nur den Teil übergeben, der zwischen den Slashes steht, reicht mir nicht, weil ich dann die Modifier nicht verändern kann.

Grüße
Chris