Yeah, I like chop too. FYI, you don't have to repeat the substr: $a= substr($_,-1,1,""); Though this doesn't work in older versions of Perl.

        - tye (but my friends call me "Tye")