$_ = '\040';
print "before: ($_) <",eval 'length("$_")',">\n";
s/.//;
print "after:  ($_) <",eval 'length("$_")',">\n";

__END__
output:
before: (\040) <1>
after:  (040) <3>