$1 behält Wert zulange

[batooh]

Hallo.

Wie kann man das umgehen?

Probier' es mal so:

$res1 = $s1 =~ m/foo(.*?)foo/ ? $1 : undef;  
$res2 = $s2 =~ m/bar(.*?)bar/ ? $1 : undef;

Wenn die regex greift, wird der Wert aus $1 verwendet, ansonsten undef.

Schöne Grüße.