Select Code to Download

use strict;
use warnings;
...

    print qq{Title   : $title\n};
}

Title   : The% cat sat 4on5 the %tHe% hat %On
Weeding : the
Title   : % cat sat 4on5 the %% hat %On
Weeding : on
Title   : % cat sat 45 the %% hat %