Хозяйке на заметку: Два+ пробела заменяются не так: 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; […]