Select Code to Download

# using a heredoc

...
    $text =~ s/\^\n\s*//g;
  return $text;
}

sub printw;

...
    my @text = @_;
    s/\^\n\s*//g, print for @text;
}