$x =~ s/...//g;