my $data=qq(One line
two line
three line
);
$data =~ s/\r\n/\n/;
# use your regex.
# code is untested