($paragraph) = $paragraph =~ /(.{1,2000}[.!?])/;