Select Code to Download

#!/usr/bin/perl -wT
use strict;
...

$text =~ s/[\r\n]+/ /g;
print "3.)T='$text'\n";