s/(>[^<]*)([.\n]{80})/$1$2
/sg