Shell Programming and Scripting

perl -lne 'BEGIN{$l=join "", sort split //,shift} $w=join "",sort split // ;
print if $w eq $l' '41a2b3cd' wordlist

% print mmacintos | perl -lne 'BEGIN{$l=join "", sort split //,shift} $w=join "",sort split // ; 
print if $w eq $l' 'nniomscta' 
%

% print mmacintos | perl -nle'BEGIN {                                                            
  $l = join "", sort grep !$_{$_}++ , split //, shift;                                                       
  }
%_ = (); $w = join "", sort grep !$_{$_}++ , split //;
print if $w eq $l;
' 'nniomscta' 
mmacintos

egrep -w '[niomscta]{8}' file

(8 is the string length. Here it is in a script and testing):

# cat ./t2
#! /bin/sh
count=$(echo -n $1 | wc -m) # is there a shorter way to character count an argument?
egrep -w [$1]{$count} file
# ./t2 smo     
# ./t2 smoa
maso
# ./t2 niomsct
# ./t2 niomscta
monastic

#! /bin/sh
count=$#
output=$(cat file)
while [ $count -ne 0 ]
do                     
output=$(echo "$output" | grep "$1")
shift
count=$(expr "$count" - 1)
done
echo "$output"

perl -lne 'BEGIN{$l=join "", sort split //,shift ; $l =~ tr/a-zA-Z0-9//s }
$w=join "",sort split // ;$w =~ tr/a-zA-Z0-9//s; print if $w eq $l ;' 'nniomscta' wordlist