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

my @ordered = ( qw( a b c d ) )[
   sort { $order[$a] <=> $order[$b] } 0..$#order
];