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