in reply to split string on key word

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

[download]

In Section Seekers of Perl Wisdom