Thank you Athanasius.
I got it worked with $string =~ s/\s*?\n/\n/mg;
In reply to Re^4: regex doubt on excluding by Anonymous Monk in thread regex doubt on excluding by Anonymous Monk