Select Code to Download

my $tail = substr $x, 2;

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

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