Select Code to Download

#! perl
use strict;
...
$string =~ s/ (?<!\x0D) \x0A //gx;

print "After:\n>>>$string<<<\n";

12:49 >perl 679_SoPW.pl
Before:
...
<<<

12:49 >