Select Code to Download

#!/usr/bin/perl - w
use strict;
...
while(<$fh>){
print $_."\n";
}

local $/ = "[\n\r\cM]";