Perl Script Is Is Spaces in Match

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; 

Ешьте свои пространства. В нем говорится: замените последовательность из одного или нескольких пробелов ничем и повторите для полной строки ввода.

Похоже, вы хотели сказать:

s/\s+/ /g; 

так, просто заменяя последовательности пробелов одним пробелом.