#!perl -n0
subX{local$_=lc$_[0];y/aeiouy/a/."/".y/a-z0-9/b/}for(split/(?<=\.)\s*/){$o=X $_;
$c=s/\s*(\S+)/sprintf"%-3s ",$1/ge;($x=$_)=~s/\S+\s*/sprintf"%*s",$-[0]-$+[0],X(
$&)/ge;s/(.{57})...+\S/$1.../&&$x=~s/(.{57})(?<= )\S.*/$1/;for($_,$x){s/\s*$//}$
c&&print"$c:\t$_\n$o:\t$x\n";}

#!perl -n0
sub X{local$_=lc$_[0];y/aeiouy/a/."/".y/a-z0-9/b/}for(split/(?<=\.)\s*/){$o=X $_
;$c=s/\s*(\S+)/sprintf"%-3s ",$1/ge;($x=$_)=~s/\S+\s*/sprintf"%*s",$-[0]-$+[0],X
($&)/ge;s/(.{57})...+\S/$1.../&&$x=~s/(.{57})(?<= )\S.*/$1/;for($_,$x){s/\s*$//}
$c&&print"$c:\t$_\n$o:\t$x\n"}

#!perl -n0
subX{local$_=lc$_[0];y/aeiouy/a/."/".y/a-z0-9/b/}for(split/(?<=\.)\s*/){$o=X $_;
$c=s/\s*(\S+)/sprintf"%-3s ",$1/ge;($x=$_)=~s/\S+\s*/sprintf"%*s",$-[0]-$+[0],X(
$&)/ge;s/(.{57})...+\S/$1.../&&$x=~s/(.{57})(?<= )\S.*/$1/;for($_,$x){s/\s*$//}$
c && print "$c:\t$_\n$o:\t$x\n";}