sub PrintBodyText {
    s/\\\n/ /g;
    foreach (split(/\n/, $_)){