Как убрать символ новой строки и пробелы после них и заменить их только символом пробела в Perl?

Question

Как я могу написать шаблон регулярных выражений с Perl, который будет работать так:

**If there is a new line**, after it, it will remove that new line character and all the whitespace characters after until it sees any character except for a white space character and will put just one whitespace character instead of them?

Answer 1

оператор замещения

use warnings;
use strict;

my $s = "foo\n    bar goo\nber";
$s =~ s/\n\s*/ /g;
print "$s\n";

__END__

foo bar goo ber

Answer 2

Я не уверен, хорошо ли я понимаю ваш вопрос. Попробуйте: s{ \n\s+ }{ }gx