如何在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?

use warnings;
use strict;

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

__END__

foo bar goo ber

s{ \\n\\s+ }{ }gx