my $attr= qr/(\w+)="([^"]+)"/; my $attrs= //; my %hash; while( $attrs =~ /$attr/g ) { $hash{$1}= $2; } $hash{user_id}...