Help for this page

Select Code to Download


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