Maybe it's time to start learning instead of just "finding code"?

use strict;
use warnings;

my $file = 'search.txt';

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

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