while($line =~ s/([\w\d\_]+)="(.+)"//) {
     $something{$1} = $2;
}