Select Code to Download

use strict;
use warnings;
...
}

print "\n";

16:51 >perl 1977_SoPW.pl
13      10
...


16:51 >

my $test = "\x0D\x0A\x0D\x0A\x0D\x0A\x0D\x0A\x0D\x0A";

my $test = "\r\n\r\n\r\n\r\n\r\n";