while ($str =~ /(?=(..{$len}))./g) {
        print pos, "$1\n";
    }