Select Code to Download

$tags=join "|",map {quotemeta $_} keys %tags;
1 while s/\b($tags)\b/$tags{$1}/g;