$char = chop $string while length $string > 4;