#!perl -pl
y/ /,/;($_)=grep/.(.)\1(.)\2/,glob"{$_}"x3