Select Code to Download

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

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

@windsordigits = ...;

push @windsordigits, $x =~ /WINDSOR\sRIVERSIDE.*\b(\d+)\z/;

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @windsordigits;
...
 dd \@windsordigits;
"
[10, 987, 6]