$str =~ s/
    (^|\n)
    [\n\s]*
    /$1/gx;