While you will find that the shortcuts come naturally with practice, if you are having trouble understanding code with hidden magic, try using the B::Deparse module, like this:

$ perl -MO=Deparse script-name.pl

The Ch 7 Ex 2 example (with syntax error corrected) gives:

while (defined($_ = <STDIN>)) {
    if (/a/i and /e/i and /i/i and /o/i and /u/i) {
        print $_;
    }
}
[download]