Hello and welcome to the monastery!

Part of the problem is they throw the abreviated versions at you a bit too fast. I like seeing things spelled out the long way, so I can figure out exactly how the code is working

The beauty of Perl is that it does allow these *shortcuts* and in time, you will appreciate how much this cuts down on code clutter - not possible in languages generally.

Reading posts here in Perl Monks will help accelerate the learning process. Often, I will attempt a solution to a question and then compare it to others' solutions - a good exercise.

You'll pick it up in no time.

Your code would have to be written::

while ( defined ($line = <STDIN>) ) {
   if ($line =~ /a/i && $line =~ /e/i && $line =~ /i/i && $line =~ /o/
+i && $line =~ /u/i)) {
      print $line;
   }
}
[download]