LaTeX Multiple Files to One File

getfullcontents.pl

use strict;
use warnings;

getcontent($ARGV[0]);
use strict;
use warnings;

sub getcontent{
  my $filename = shift;
  my $line;
  open (my $fh,"<",$filename.".tex") or die "no file named $filename";
  while(<$fh>){
    chomp;
    $line = $_;
    unless($line =~ m/\\input\{(.*?)\}/ig){
      print $line,"\n";
      next;
    }
    next if $line =~ m/^%/;
    getcontent($1);
    
  }

}