my %order;
@order{qw( a b c d )} =
      map length, /^(?=(.*?)a)(?=(.*?)b)(?=(.*?)c)(.*?)d/
   or die;

my @ordered = sort { $order{$a} <=> $order{$b} } keys %order;