Select Code to Download

my $msg = MIME::Lite->new(    
                           To      => "$emailsite",
...
}

$msg->send();

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/