#!perl -n0
map{$n=0;@w=map{sprintf"%-3s",$_}split;$_="@w";s/ *$/./;s/(?<=.{57}).{4,}/.../;@w&&printf@w.": $_
%*s: "."%-*s"x($q=grep/[^.]/,split)."
",map{!$n++||!--$q||1+length,(@x=/[aeiouy]/ig).'/'.s/\w//g}"@w",@w}split/\.\s+/
|
#!perl -n0
map{$n=0;$r=$_;@w=map{sprintf"%-3s",$_}split;$_="@w";s/ *$/./;s/(?<=.{57}).{4,}/.../;@w&&printf@w.": $_
%*s: "."%-*s"x($q=@x=/^| \S(?!\.\.$)/g)."
",map{(!$n++||!--$q||1+length,(@x=/[aeiouy]/ig).'/'.s/\w//g)}$r,@w}split/\.\s+/
|