my @names = grep /\bName=(.*?)/ , @array;
    my @password = grep /\bPassword=(.*?)/ , @array;

    my $newline = $line;    # Make a copy

 print "name is $names[0] and password is $password[0]\n";