$str =~ s/^((?:...)+).{0,2}$/$1/;