$string =~ /^(.*?)($regexp)/;