Select Code to Download

$data =~ s/\s+/ /g;
$data =~ s/  +//g;
# remove leading and trailing blanks
$data =~ s/^\s+//;
$data =~ s/\s+$//;