$_=shift||"ciolnaot";
my $s = join'?',(sort split//),"";
while( <> ){
    chomp;
    next unless length == 4;
    my $t=join'',sort split//;
    print "$_\n" if $t=~/^$s$/;
}