$data =~ s/\x0d\x0a[|][|]/||/g; # No /s needed.