if ($line =~ /(#include.*\.h[>"])$/ ) {
        print "$1\n";
    }

##</code><code>##

    $line =~ s/.*(?=#include)//;
    print $line;