#!/usr/bin/perl -w -00nal
use strict;

END{
    $_="@F ";
    @F=1;
    formline'@'.('|'x80)."\n",$&and@F=length$&while/.{1,@F}.*? /g;
    print$^A
}