$ perl -mO=Deparse -le 'print "$ARGV $_" for (<>)'

foreach $_ (<ARGV>) {
    print "$ARGV $_";
}

##</code><code>##

$ perl -mO=Deparse -le 'print "$ARGV $_" while (<>)'

print "$ARGV $_" while defined($_ = <ARGV>);