for my $input_file ( @ARGV ) { while ( ! eof ) { print <>; } print "=========SEPARATOR: Processing $input_file =========\n"; }