my ($s1, $s2) = $string =~ /(.+)?(Wnr.+)/si;