while (<>) {
	chomp;								
	$_ = lc $_; 					
	$signature = pack "C*", sort unpack "C*", $_;
	if (exists $words{$signature}) {			 
        next if $words{$signature} =~ /\b$_\b/;
		$words{$signature} .= " ";
	}
	$words{$signature} .= $_;
}
print join "\n", sort grep {tr/ //} values %words;
print "\n";