#!/usr/ug/bin/perl
for (<>) { chomp; split (''); print "$_\n" if ($_ eq join('',(sort @_))); }