$var='12-12 WANG 28 Jul H PRG SPEC 1320m Bk past midfield wide,btn car
+ top T J Bau 57 (12) 7/7 Wnr: VENUS SERENA 1:26.82 13.5L';

($string_1, $string_2)=$var=~m#(.+?)(Wnr.+?)$#;

print "\n$str_1\n\n$str2";
[download]

OUTPUT:

12-12 WANG 28 Jul H PRG SPEC 1320m Bk past midfield wide,btn car top T
+ J Bau 57
(12) 7/7

Wnr: VENUS SERENA 1:26.82 13.5L
[download]