Select Code to Download

my %replaces = (
  email => sub { "<a href=mailto:'$_[0]'>$_[1]</a>" },
...
  $attr ||= $content;
  return $replaces{$tag}->($attr,$content);
}

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