open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$line_stop=0;
while (<F0>) {
        while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
        s/\r\n//;s/\t+/\t/;chomp;
	/^[0-9]+/;
	$line=$';
	$line_no=$&;
	while (<F1> && ($line_stop++ < $line_no)) { while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;s/\t+/\t/;chomp; print "$_\n";}
	print F2 $IP, "\t$line\n" if /[0-9]+\//; 

}
close F0; close F1; close F2;