c:\@Work\Perl>perl -wMstrict -le
"$_ = 'asd';
 ;;
 print 'match' if
   m/
     (?<=a)
     sd
     [^e]
   /x;
 print 'qed';
"
qed