Select Code to Download

sub replace {
  my ($tag,$attr,$content) = @_;
...
}

s/\[(\w+)=?(\w*)\](\w+)\[\1\]/replace($1,$2,$3)/esg;

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.