perl -w -e 'use strict; print "\n"; my @rows = ( qr/W{0,5}(HO\s|ER)W{0,3}[IF][LOL]+W(IT|I)N?/, qr/(WI|TH)[EL\sE]{2}(ECT|EL)+I[L-P]*/, qr/(SE|D|C\.|ON)+(\sC|ALD)(L|\sTR|IN)+G?(UMP|TO)+L?N?/); my @cols=(qr/[WHAT}{2}[DOES]/, qr/[HOME]+/, qr/[CANOE]+/, qr/[.AS\s]+/, qr/[\sLEW]/, qr/[DECLINE]{3}/, qr/[LEL\s]/, qr/[LICK]{2}[IT]/, qr/[\sTERN]+/, qr/[WIN]{2}[BUT]/, qr/(I|O)+M?/, qr/N+P?/); my @r=("WHO WILLWIN", "THE ELECTION"); for my $r2 ("SEC. CLINTON", "DONALD TRUMP") { $r[2]=$r2; my @c; for my $r (0..2) { my $rr=0; $rr++ if ($r[$r] =~ /$rows[$r]/); print "$r[$r] =~ /$rows[$r]/ -> $rr\n"; for my $c (0..$#cols) { $c[$c]=$c[$c] || ""; $c[$c].=substr($r[$r],$c,1); }} print "  cols:"; for my $c (0..$#cols) { my $cc=0; $cc++ if ($c[$c] =~ /$cols[$c]/); print "\t$c[$c] =~ /$cols[$c]/ -> $cc\n"; } print "\n\n";}'

WHO WILLWIN =~ /(?^:W{0,5}(HO\s|ER)W{0,3}[IF][LOL]+W(IT|I)N?)/ -> 1
THE ELECTION =~ /(?^:(WI|TH)[EL\sE]{2}(ECT|EL)+I[L-P]*)/ -> 1
SEC. CLINTON =~ /(?^:(SE|D|C\.|ON)+(\sC|ALD)(L|\sTR|IN)+G?(UMP|TO)+L?N?)/ -> 1
  cols: WTS =~ /(?^:[WHAT}{2}[DOES])/ -> 1
        HHE =~ /(?^:[HOME]+)/ -> 1
        OEC =~ /(?^:[CANOE]+)/ -> 1
          . =~ /(?^:[.AS\s]+)/ -> 1
        WE  =~ /(?^:[\sLEW])/ -> 1
        ILC =~ /(?^:[DECLINE]{3})/ -> 1
        LEL =~ /(?^:[LEL\s])/ -> 1
        LCI =~ /(?^:[LICK]{2}[IT])/ -> 1
        WTN =~ /(?^:[\sTERN]+)/ -> 1
        IIT =~ /(?^:[WIN]{2}[BUT])/ -> 1
        NOO =~ /(?^:(I|O)+M?)/ -> 1
        NN =~ /(?^:N+P?)/ -> 1


WHO WILLWIN =~ /(?^:W{0,5}(HO\s|ER)W{0,3}[IF][LOL]+W(IT|I)N?)/ -> 1
THE ELECTION =~ /(?^:(WI|TH)[EL\sE]{2}(ECT|EL)+I[L-P]*)/ -> 1
DONALD TRUMP =~ /(?^:(SE|D|C\.|ON)+(\sC|ALD)(L|\sTR|IN)+G?(UMP|TO)+L?N?)/ -> 1
  cols: WTD =~ /(?^:[WHAT}{2}[DOES])/ -> 1
        HHO =~ /(?^:[HOME]+)/ -> 1
        OEN =~ /(?^:[CANOE]+)/ -> 1
          A =~ /(?^:[.AS\s]+)/ -> 1
        WEL =~ /(?^:[\sLEW])/ -> 1
        ILD =~ /(?^:[DECLINE]{3})/ -> 1
        LE  =~ /(?^:[LEL\s])/ -> 1
        LCT =~ /(?^:[LICK]{2}[IT])/ -> 1
        WTR =~ /(?^:[\sTERN]+)/ -> 1
        IIU =~ /(?^:[WIN]{2}[BUT])/ -> 1
        NOM =~ /(?^:(I|O)+M?)/ -> 1
        NP =~ /(?^:N+P?)/ -> 1