Let's not forget B::Deparse

E:\>perl -MO=Deparse,-p -ne"print if 15 .. 17 "
LINE: while (defined(($_ = <ARGV>))) {
    ((15 .. 17) and print($_));
}
-e syntax OK

E:\>perl -MO=Deparse -ne"print if 15 .. 17 "
LINE: while (defined($_ = <ARGV>)) {
    print $_ if 15 .. 17;
}
-e syntax OK
[download]

Now if still there is some confusion (like the range operator), perldoc my friend, perldoc ;)