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