my $s = "fabejikou"; if ($s =~ /a[a-z]*e[a-z]*i[a-z]*o[a-z]*u/i) { print $s;} else { print "failed"}
Standard input is empty
fabejikou
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!