niemals $1 verwenden, ohne die vorherige regex geprüft zu haben! ganz
einfach, weil in $1 noch ein alter wert stehen könnte, falls die regex nicht
matcht. also am besten:
my ($s) = $string =~ /(.*?)(?=string)/;
dann ist $s im fehlerfall wenigstens undef und hat nicht einen alten wert.