my $number = `ls -l $name | wc -l | sed 's/^ *//'';

##</code><code>##

my $number = `ls -l $name | wc -l | sed 's/^ *//'`;