#!Perl

open INPUT, "<dictionary";
open OUTPUT, ">result.txt";


while (<INPUT>){
	if ($_ =~ m/^(.)([^\1])([^\1\2])([^\1\2\3])([^\1\2\3\4])\5/i){
		print OUTPUT "$&\n";
	}
}