my $re_single = qr/
   ^ ( .* \n? \z )
/mx;

my $re_multiple = qr/
    ^
    ( (?: .* \n ){0,$nless} )
    ( .* \n? \z )
/mx;

$String =~ s/\r\n|\n\r|\r|\n/\n/g;