Select Code to Download

s/##\s*(.+?)\s*##/'##'. (exists($langhash{$1}) ? $langhash{$1} : $1) .
+ '##'/es

s/##(.+?)##/
   my $s = $1;
...
   $s = $langhash{$s} if exists $langhash{$s};
   "##$s##"
/es