my @file = `cat text.txt`;
 foreach my $line (@file)
{ 
while $line =~ /name \s+(*.?) \s+(.*?)/mgx
my $name = $1;
}