for_pairs { $att{$a} = $b } /\W*(\w+)="([^"]+)"/ig;