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