$1 behält Wert zulange

[Beat]

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

oder geht das?  
~~~perl
  
( $res1 ) = ( $s1 =~ m/foo(.*?)foo/ );  
( $res2 ) = ( $s2 =~ m/bar(.*?)bar/ );