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