Select Code to Download

my $address = "$strnum $strname $strtype $strdir";
$address =~ s/\s+/ /g;
$address .= ' ' x (37 - (length $address));