my $string1 = "<%_Mitten_drin_statt_nur_dabei_%>_Und_mehr_%>";
$string1 =~ /<%(.*?)%>/;
print "$1\n";
$string1 =~ /<%(.*)%>/;
print "$1\n";
^Z
_Mitten_drin_statt_nur_dabei_
_Mitten_drin_statt_nur_dabei_%>_Und_mehr_