A typical approach is to have a flag which indicates if you currently need you write to an output-file or not.

Just read the input-file line-by-line and determine one of the following four situations:

• You find the start-pattern: now open a new output file based on the number inside the pattern (hint: use a regex). And set your flag
• You find the end-pattern: just close your output-file and reset the flag
• You find any other line and the flag is set: write that line to your output-file
• You find any other line and the flag is not set: ignore that line

Have fun implementing! If you encounter any Perl-questions, feel free to show your code and where you have issues, so we monks can give you further advice

Thanks for the idea. i got my thing done..

Playing with the input record separator so that you're reading in records where the separator is .slow can simplify things a little. This way you're reading 'records' rather than lines, so you don't have to worry about keeping track of state flags.

use strict;
use warnings;

my $in_file_name = 'sample.txt';

{
    local $/ = '.slow';
    open my $input, '<', $in_file_name or die $!;
    while( my $rec = <$input> ) {
        chomp $rec;
        next unless $rec =~ m/(\d+)\.pace(.+)$/s;
        my( $out_file_name, $capture ) = ( $1, $2 );
        open my $output, '>', $out_file_name or die $!;
        print $output $capture;
        close $output or die $!;
    }
    close $input;
}
[download]

Untested. But I think it gets the idea across.

Thanks for the effort...i got my work done.

If your files aren't too big, you can slurp the file into a single string. Then you can get the info you need with a simple regex that employs a 'g' flag to get all the matches:

my $text;
{
    local $/ = undef;
    $text = <DATA>;  #"slurp" the whole file
}


while ($text =~ / 
         (\d+) 
          \. 
          pace 
          (.*?)
          \d+
          \.
          slow  
                /xmsg ) 
{
    print "filename=$1 and text=$2";
}

    
__DATA__
12345.pace
text1
12345.slow
123456.pace
text2
123456.slow
hyds.pace
bla bla bla
uiw.slow



--output:--
filename=12345 and text=
text1
filename=123456 and text=
text2
[download]

I'll leave the file creation and the writing of the file for you.

Thanks

Thanks