#!perl print"$_:@{[grep!($'%$_),//..$']} "for//..<>