use Data::Dumper;

while (chomp(my $line = <DATA>)) {
    @match =  $line =~ m/((.*\.c\s+)|(.*\.h\s+)|(.*\.cpp\s+))|(\s+(.*)\%\s+(of)\s+\d+\s)|(\bNone\b)/;
    print "$line\n";
    print Dumper \@match;
    
} 
    
__DATA__
Title               Percent2   Percent3
test1.cpp     0.00% of 21     0.00% of 16
test2.c     None   16.53% of 484
test3.h         0.00% of 138    None