Thanks to Elie, Jay and Shawn, all work fine, but I used the Jay solution. What I was using is:
#!/usr/bin/perl use strict; use warnings; $/ = ""; my $file = "111505_SystemOut_1.log"; open ( FILE, "<$file" ) || die "El nombre de archivo es incorrecto o no existe\n$!\n"; while ( my $lines = <FILE> ) { if ( $lines =~ /(.+\n)(.+\n)(.+:-1)/ ) { print "$1"; print "$2"; print "$3"; } } But it does not work. Thanks again !!!! -- _______________________________________________ Get your free email from http://mymail.bsdmail.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>