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

##</code><code>##

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