$board =~ /(?<!\w).{2,}(?!\w)(?{ push @pat, [ $-[0], $& ] })(*FAIL)/;

##</code><code>##

perl -le ' "abcd" =~ /.{2,}(?{print $&})(*FAIL)/ '