my @lines = split m#$/#, $content; #### my @lines = split m#\x0d\x0a?|\x0a#, $content;