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