substr $_, 1;

##</code><code>##

  s/^.//;