Perlスクリプトがスペースを削除しています

Question

私はうまく動作するスクリプトを持っていますが、私が抱えている問題は、マッチしたすべての単語を組み合わせてスペーシングを削除していることです。誰かが私に何があるか教えてもらえれば、またはスクリプトが試合中の単語を組み合わせないようにするために行方不明になっている。

use strict; 

my $find = '^M0|MT'; 
my $match = 0; 

open (NEW, ">", "Output.txt") or die "could not open:$!"; 
open (FILE, "<", "File.txt") or die "could not open:$!"; 

while (<FILE>) { 
    chomp; 

if ($match){ 
    $match = 0; 
    s/\s+//g; 
    print NEW "$_\n"; 
} 

if (/$find/){ 
    $match = 1; 
    print NEW "$_" 
} 
} 
close (FILE); 
close (NEW); 

ファイルの例

  U# mul acc  UNIT # HAS MULTIPLE ACCOUNTS   FAIL 

出力例（現在、私のスクリプトで何が起こっている）

  U#mulaccUNIT#HASMULTIPLEACCOUNTSFAIL 

Answer 1

@ThisSuitIsBlackNotはすでにに指摘したように：

ライン

s/\s+//g; 

あなたのスペースを食べていますか？ 1つまたは複数のスペースのシーケンスを何も指定しないで置き換え、完全な入力文字列を繰り返す。そう

s/\s+/ /g; 

を、単に1つのスペースでスペースのシーケンスを置き換える：あなたが言うことを意図したように

が見えます。