$ perl -MDevel::Peek -wle 'while (my $x  = <>){ print "read line"; print "and its true" if $x }' foo
read line
and its true
read line