#                       v
$string =~ s/##\s*([^#]+?)\s*##/##$langhash{$1}##/
#                       ^