Not everything must be done with a regexp:

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

-- Frank