in reply to Seeking further help from Grand Father and other Perl Monks for pattern matching and counting lengths