my @files = glob( '2005*@*.log' );

die "No files found\n" unless @files;

open(OUTPUT, ">output" ) or die "Unable to open output\n$!\n";

foreach my $file (@files) {
  open( MYFILE, $file ) or die "Unable to open $file\n$!\n";
  while (<MYFILE>) {
    # parse
    print OUTPUT $parsed_output;
  }
  close (MYFILE) or die "Unable to properly close $file\n$!\n";
}

close(OUTPUT);
[download]

Transient did a great job giving a generally safe and applicable answer, though a bit wordy for my tastes. Pass the filename wildcard on the command line, and redirect STDOUT:

#@ARGV = glob( @ARGV ); # needed for DOS
while (<>)
{
  s/match this/replace it with this/;
  print;
}
[download]

-QM
--
Quantum Mechanics: The dreams stuff is made of

THank you very much :)

You need to show some effort. Based on the two questions you have posted recently.. I cannot tell that you have ever coded one line of Perl in your life. Show us what you have tried.

Also, a plea to other monks. Stop doing people's work for them. This site (to me anyhow) is about learning and self-betterment in regards to Perl. Answering someone's question in that fashion when they have shown zero effort does the OP no good.

I am real beginner, and i really appreciate this forum, because people answer your questions without any prejudice, and whichever level they are at. It is hard for me to show you my code, because i am trying to do something for work, and i don't think that would be proper. I would like to thank one more time to all people that put their time and answered my questions, without judging. As you said this site for you means one thing, for them obviously other, they are willing to help.