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