#!/usr/bin/perl

$n=0;
$|=1;
open( F, ">echo-0000.txt" ) or die "open fail";

while( <> ) {
	if( (!/>/) && / Area: / ) {
		close( F );
		print "opening ",$n++," ";
		$nn = sprintf("%04i",$n);
		open( F, ">echo-$nn.txt" ) or die "open fail"; 
	}

	print F $_;
}
close( F );