my $length = length($_ = expand($_));