c:\@Work\Perl>perl -wMstrict -n -le
"BEGIN { $::n = 0 }
 /\A .{12} \z/x && !/(.) \g-1/x && /(.) .+ \g-1/x
 and ++$::n
 and print;
 END { print \"$::n found\" }
"  ..\moby\mwords\354984si.ngl