sub squash {
    ($a,$b)=@_;$b-=3;substr$a,0,-$b/2,substr($a,0,$b/2)."...";$a
}