my @names;
while(<>){
 my $foo;
 while ($foo = /name=([^> ]*)/gi) {$foo =~ s/^"|"$//g; push @names, $foo}
}