Help for this page

Select Code to Download

Select or download this

#/usr/bin/perl -w
use strict;
...
             or substr($_, $idx[$i], length($countries[$i])) =~ /^\s+$
+/;
    }
}

Select or download this

pears missing for Canada
watermelons missing for US
watermelons missing for Taiwan