Select Code to Download

my $address = "$strnum $strname $strtype $strdir";
$address =~ s/\s+/ /g;
$address .= ' ' while length $address < 37;

my $address = sprintf '%-37.37s', "$strnum $strname $strtype $strdir" 
+=~ s/\s+/ /rg;