my %langhash;
$langhash{'dígito verificador incorrecto.'} = 'digit incorrect.';

my $string = '(5/4/07 4:24:03 PM CDT) 1473721:   ##   dígito verificador incorrecto.   ##pp';

if ($string =~ s/##\s*([^#]+?)\s*##/##$langhash{$1}##/) {
  print "$langhash{$1}\n";
  print "/$1/\n";
  print $string;
}