Help for this page

Select Code to Download

Select or download this

for ([qw/dog good/],[qw/food fodder/]) {
   my ($first, $second) = @$_;
...
      unless join("",sort split //,$second) =~ join(".*",sort split //
+,$first);
   print "contain $second\n";
}

Select or download this

join("",sort split //,$first) =~ ("^".join("?",sort(split //,$second))
+."?\\z")