in reply to Re^4: cut of first char of a string
in thread cut of first char of a string

$_ = "a"; s/(.(.*))/($2ne'')?$2:$1/e; print

That gives "a". I'd expect nothing to get printed - if I remove the first character of a one-character string,
I should be left with the empty string, not with the same string.

As stated - "First, but not last" which means in plain English - the 1-st symbol is not the last one and if so - it is cut.