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