c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $x = 'CA006139520,\"WINDSOR RIVERSIDE, ON CA\",2018-01-02,10';
 ;;
 my @windsordigits;
 @windsordigits = $x =~ /WINDSOR\sRIVERSIDE.*(\d\d?)/;
 dd \@windsordigits;
"
[0]