print "$1$2 at ". ($-[0] + 1) ."\n" while ($string =~ /(.)(?=(...))/g);