#!/usr/bin/perl -wall -00n
use strict;

END{
    @_=shift@F;
    while(@F){
        $_=shift @F;
        $_.=' '.shift@F while(length$_<=length$_[-1]&&@F);
        push@_,$_
    }
    formline(('@'.('|'x80)."\n")x@_,@_);
    print $^A
}

##</code><code>##

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

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