my $i = 4; chop $string while $i -- && length $string;