Select Code to Download

perl -i.bak -ne's{^print\s\"(.*?)\"\;$}{my(@str)=split(/(.{76})/,$1); 
+"print ".join(",\n\t",map(qq,"$_",,@str)).";"}ge;print' file

#!/usr/bin/perl -wT
use strict;
...
        "789123456789123456789\n.";