my $tail = substr $x, 2;