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