perl -e '$SIG{INT}=sub{print$/x2,"@__"};while(<>){s/(.{75,}?)\s|\n/$1<br>/;push@__,$_}'