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

##</code><code>##

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

##</code><code>##

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