qr// ma smysl jedine v pripade, ze v regularnim vyrazu pouzivate promenne.
To jest
$re = qr/$ARGV[0]/;
while (my $line = <FILE>) {
if ($line =~ $re) { ...
}
Pokud je regexp staticky tak se zkompiluje se zbytkem skriptu.
Jenda