while ()
     {
     <>;
     last unless /\S/;
     print FILE;
     }

##</code><code>##

c:\@Work\Perl>perl -wMstrict -le
"while ()
      {
      $_ = <>;
      last unless /\S/;
      print qq{>$_<};
      }
"
qeert
>qeert
<
ghjk
>ghjk
<