$string =~ s/^(.{1,20})(?{(length($_)>pos)?'...':''}).*$/$1$^R/;