/#.*#/ and next; # same row #### /#(?:.{$gap}..)*.{$gap}.#/s and next; # same column #### push @queue, "$`#$'" =~ s/$&/\l$&/gr while /$&/g; #### print 'yes' if 'a' =~ /(b|)/;