chomp $string;
print join( "\n", split( /(.{80})/, $string ) ), "\n";