my $foo = "    100";
print "!", $foo, "!\n";
print "!", 0+$foo, "!\n";
__END__
# produces
!    100!
!100!