my $to_be_matched = 'tab';
my $word = 'bat';
if ( join '', sort split(//, $word) eq 
     join '', sort split(//, $to_be_matched ) ) {
   # Success!
} else {
   # Failure
}
[download]

Update - $ instead of @ on to_be_matched

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important

shouldnt

 
if ( join '', sort split(//, $word) eq 
     join '', sort split(//, $to_be_matched ) ) {
[download]

be

if ( join('', sort split(//, $word)) eq join('', sort split(//, $to_be
+_matched)) ) {
[download]

(extra parenthesis added )

After adding the parenthesis , i get "Success" (i.e. "bat" = "tab" based on your example), without them the result is "Failure"

$var = 'bat';
if ($var =~ /^[bat]{3}$/) { print "match"; } else { print "fail"; }
[download]

If I'm understanding the question correctly, this will not work.

It seems that the inquiring monk wants to match each letter once and only once.
/^[bat]{3}$/ could match 'ttt', 'bba', 'aaa', etc. If that *is* undesirable, Masem's excellent reply is probably the best way to go.

count0++ i forgot to take that into consideration

@to_check=('bat','bbat','brat');
for (@to_check){
 if (/^([bat])(?!\1)([bat])(?!\2)([bat])(?!\3)/){
   # do something
 }
}
[download]

if (/^([bat])(?!\1)([bat])(?!\2)([bat])(?!\3)/){</i>

This does not entirely work, 'bab', for instance, passes the match.

the following modified version works, but it is not too elegant, just imagine checking a 5 letter word!

if (/^([bat])(?!\1)([bat])(?!\2|\1)([bat])(?!\3|\2|\1)/){
[download]

Will perl for money
JJ Knitis
(901) 756-7693
gt8073a@industrialmusic.com

For any word:

my $set='bat';
my $regexp;
for (my $i=1;$i<=length($set);$i++){
 my $x=join '|', map {"\\$_"} 1..$i;
 $regexp.="([$set])(?!$x)";
}
if (/^$regexp/){
  # do something
}
[download]

Terrible... :-)