use warnings;
use strict;

my $len = 30;
my $address = '123   Main St    NE';
$address =~ s/  +/ /g;
$address = sprintf "%-${len}s", $address;
print ">>>$address<<<\n";

__END__

>>>123 Main St NE                <<<