#!/usr/bin/perl
sub usage { return <<EOL;
usage: juncat file1
        display number of same lines between file1 and file2.
EOL
}
if($#ARGV<0) { print &usage(); exit 1;}
open(F1,"$ARGV[0]")||die("Can't open $ARGV[0]\n");

while($l=<F1>) {
	if($l=~/^1_2_3_________/) {
		my ($pre,$file)=split(/ /,$l);
		open(O,">$file");
	}
	else {
		print O $l;
	}
}
close(O);

close(F1);