Select Code to Download

$Text::Wrap::columns = '40';
print wrap("","",@CONTENT);

$Text::Wrap::columns = '40';
push(@YO, wrap("","",@CONTENT));
...
    $_ =~ s/(\s)?\n\s/\n/g;
    print;
}