$substr($foo,0,$n)="" unless(length $foo => $n);