DOE JOHN
123
DENIRO ROBERT
123
123
123
CUBE ICE
123
123


##</code><code>##

use strict;
use warnings;


open OUTPUT, "> info.txt" or die $!;
print "What file do you want parsed? ";

my $file1 = <STDIN>;

print "Name: ";

chomp (my $name = <STDIN>);

open FILE, "$file1";

while (<FILE>) {
	
	if (/$name/.../\n/) {
		
		print OUTPUT $_ until ($_ ne\d+/); 
			
			}
			
		}