Select Code to Download

    $default_title =~ s/(.{50}).*/$1/;
    $default_title =~ s/./$ctr++<50?$&:""/ge;
    $default_title = pack "A50", $default_title;
    $default_title = join "", (split //, $default_title)[0..50];

    substr($default_title, 50) = "";