my $tail = substr $x, 2;

##</code><code>##

my $tail = do { $x =~ s/^.{2}(.*)/$1/s; $1 };

##</code><code>##

my $tail = do { substr( $x, 0, 2 ) = ''; $x };