print if substr ($_, 0, 1) == length substr ($_, 1);