foreach $line (@array)
        {
        $line =~ s/\s{1}//g;
        }