$a =~ s/(<\/?tag[^>]*>)([\w ]*)/push @b, ($1,$2)/eg;