Select Code to Download

use strict;
use Data::Dumper;        
...
    print "with underscore\n";
}

$str = "TIP UPSTREAM";