sub fixedwidth_linebreaks
{
    my( $str, $width ) = @_;
    my $newstr;
    while ( $str )
    {
        $newstr .= substr( $str, 0, $width, '' )."\n";
    }
    $newstr
}

$str = fixedwidth_linebreaks( $str, 128 );