#!perl -lp
END{print$n}s/./ $&/g;/$/;$_|=$n;y/./_/;s/\. ?/_|/g,s/ _/|_/gfor$n=$`