use strict;
use warnings;

my $file = 'search.txt';

open my $fh, $file or die $!;

while (<$fh>) {
	print "$1\n" if /Name:\s*(.*)/;
}