my(@tmp) = <FILEHANDLE>;
    shift $tmp[0];

##</code><code>##

    my(@tmp) = <FILEHANDLE>;
    shift @tmp; # remove headers