[perl] 数値にはさまれている全角を削除

移転しました。 

  my $val = "1000　2000";
  $val =~ s/(\d+)　(\d+)/\1\2/;
  print $val;