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