Use B::Deparse. I think it may be documented in perlopen, but the second construct adds the defined operator.

$ perl -MO=Deparse
while (<STDIN>)
{
    print;
}
[download]

produces:

while (defined($_ = <STDIN>)) {
    print $_;
}
- syntax OK
[download]