Хозяйке на заметку:

Два+ пробела заменяются не так:

perl -le 'use Data::Dumper; my $x = «abc bca \n \t abc bca»; $x =~ s/\s{2,}/ /g; print Dumper $x'
$VAR1 = 'abc bca abc bca';

Два+ пробела заменяются так:

perl -le 'use Data::Dumper; my $x = «abc bca \n \t abc bca»; $x =~ s/[[:blank:]]{2,}/ /g; print Dumper $x'
$VAR1 = 'abc bca
abc bca';