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