Select Code to Download

use Text::Wrap;

...
open(FH,">new$file");
$Text::Wrap::columns = 40;
print  wrap('','',@text);