c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @windsordigits;
 ;;
 for my $x (
     'CA006139520,\"WINDSOR RIVERSIDE, ON CA\",2018-01-02,10',
   qq{CA006139520,\"WINDSOR RIVERSIDE, ON CA\",2018-01-02,987\n},
   qq{CA006139520,\"WINDSOR RIVERSIDE, ON CA\",2018-01-02,6\n},
   ) {
   push @windsordigits, $x =~ /WINDSOR\sRIVERSIDE.*\b(\d+)\Z/;
   }
 dd \@windsordigits;
"
[10, 987, 6]