#!perl -pa056
sub c{uc=~y/AEIOUY//.'/'.s/\w//g}$w=c;@s=map{sprintf"%-3s",$_}@F;$_="@s";s/(.{57})...+\S/$1.../;$_&&=(@c=map{pack"A".y///c,c}@s).": $_
$w: @c[0..s/ +[^.]//g]
";s/ +$//gm
|
#!perl -pa056
sub c{uc=~y/AEIOUY//.'/'.s/\w//g}$w=c;@s=map{sprintf"%-3s",$_}@F;$_="@s";s/(.{57})...+\S/$1.../;$_&&=(@c=map{pack"A".y///c,c}@s).": $_
$w: @c[0..s/ +[^.]/$&/g]
";s/ +$//gm
|
#!perl -pa056
sub c{0+s/[aeiouy]/$&/gi.'/'.s/\w//g}@s=map{sprintf"%-3s",$_}@F;$w=c;$_="@s";s/(.{57})...+\S/$1.../;@c=map{sprintf"%-*s",length,c}@s[0..-1-/ \./+split];$_=0+@F.": $_\n$w: @c\n"if$_;s/ +$//gm
|
#!perl -pa056
sub c{0+s/[aeiouy]/$&/gi.'/'.s/\w//g}$w=c;@s=map{sprintf"%-3s",$_}@F;$_="@s";s/(.{57})...+\S/$1.../;@c=map{sprintf"%-*s",length,c}@s[0..-1-/ \./+split];$_=0+@F.":\t$_\n$w:\t@c\n"if$_;s/ +$//gm
|
#!perl -pa056
sub c{0+s/[aeiouy]/$&/gi.'/'.s/\w//g}@s=map{sprintf"%-3s",$_}@F;$w=c;if($_="@s"){s/(.{57})...+\S/$1.../;@c=map{/.*/;sprintf"%-@{+}s",c}@s[0..-1-/ \./+split];$_=0+@s.":\t$_\n$w:\t@c\n";s/ +$//gm;}
|
#!perl -pa056
sub c{0+s/[aeiouy]/$&/gi.'/'.s/\w//g}@s=map{sprintf("%-3s",$_)}@F;$w=c;if($_="@s"){s/(.{57})...+\S/$1.../;@c=map{/.*/;sprintf("%-@{+}s",c)}@s[0..-1-/ \./+split];$_=0+@s.":\t$_\n$w:\t@c\n";s/ +$//gm;}
|
#!perl -na056
sub c{0+s/[aeiouy]/$&/gi.'/'.s/\w//g}sub p{s/ +$//;print"@_:\t$_\n"}@s=map{sprintf("%-3s",$_)}@F;$w=c;if($_="@s"){s/(.{57})...+\S/$1.../;@c=map{/.*/;sprintf("%-@{+}s",c)}@s[0..-1-/ \./+split];p~~@s;$_="@c";p$w}
|
#!perl
sub c{0+s/[aeiouy]/$&/gi.'/'.s/\w//g}sub p{s/ +$//;print"@_:\t$_\n"}$/='.';for(<>){@s=map sprintf("%-3s",$_),split;$w=c;$_="@s"||next;s/(.{57})...+\S/$1.../;p~~@s;@c=map /.*/&&sprintf("%-$+[0]s",c),@s[0..-1-/ \./+split];$_="@c";p$w}
|
#!perl
sub c{0+s/[aeiouy]/$&/gi.'/'.y/a-zA-Z0-9//}sub p{s/ +$//;print"@_: $_
"}$/='.';for(<>){$x=split||next;@s=map sprintf("%-3s",$_),@_;$w=c;$_="@s";s/(.{57}).{3,}\S/$1.../;p$x;@c=map sprintf("%-".(length)."s",c),@s[0..-1-/ \./+split];$_="@c";p$w}
|
#!perl
sub c{0+s/[aeiouy]/$&/gi.'/'.y/a-zA-Z0-9//}sub p{s/ +$//;print"@_: $_
"}$/='.';for(<>){$x=split||next;@s=map sprintf("%-3s",$_),@_;$w=&c;$_="@s";s/(.{57}).{3,}\S/$1.../;p$x;@c=map sprintf("%-".(length)."s",&c),@s[0..-1-/ \./+split];$_="@c";p$w}
|
#!perl
$/='.';for(<>){$x=split||last;$c=$s="";$c.=" "x(length($s)-length$c).&c,$s.=sprintf("%-3s ",$_)for@_;$w=&c;$_=$s;s/ +$//;s/(.{57}).{4,}/$1.../;$n=$x+/ \./-split;$c=~/( +\S+){$n}$/;print"$x: $_
$w: $`
"}sub c{0+s/[aeiouy]/$&/gi.'/'.y/a-zA-Z0-9//}
|
#!perl
$/='.';for(<>){$x=split||last;$c=$s="";$c.=" "x(length($s)-length$c).&c,$s.=sprintf("%-3s ",$_)for@_;$w=&c;$_=$s;s/ +$//;s/(.{57}).{4,}/$1.../;$n=-1-/ \./+split;$c=~/(\S+ +){$n}\S+/;print"$x: $_
$w: $&
"}sub c{0+s/[aeiouy]/$&/gi.'/'.y/a-zA-Z0-9//}
|
#!perl
$/='.';for(<>){/\S/||last;$c=$s="";$x=split;$c.=" "x(length($s)-length$c).&c,$s.=sprintf("%-3s ",$_)for@_;$w=&c;$_=$s;s/ *$//;s/(.{57}).{4,}/$1.../;$n=-1-/ \.{3}/+split;$c=~/(\S+\s+){$n}\S+/;print"$x: $_
$w: $&
"}sub c{0+s/[aeiouy]/$&/gi.'/'.y/a-zA-Z0-9//}
|
#!perl
$/='.';for(<>){/\S/||last;$c=$s="";for(split){$c.=" "x(length($s)-length$c).&c;$s.=sprintf("%-3s ",$_)}$s=~s/ *$//;$s=~s/(.{57}).{4,}/$1.../;$n=-1-$s=~/ \.\.\./+split" ",$s;$c=~/(\S+\s+){$n}\S+/;print~~split,": $s
",&c,": $&
"}sub c{0+s/[aeiouy]/$&/gi.'/'.y/a-zA-Z0-9//}
|
#!perl
$/='.';for(<>){/\S/||last;$c=$s="";for(split){$c.=" "x(length($s)-length$c).&c;$s.=sprintf("%-3s ",$_)}$s=~s/ *$//;$s=~s/(.{57}).{4,}/$1.../;$n=-1-$s=~/ \.\.\./+split" ",$s;$c=~/(\S+\s+){$n}(\S+)/;print~~split,": $s
",&c,": $&
"}sub c{($w=$_)=~y/aeiouyAEIOUY//.'/'.y/a-zA-Z0-9//;}
|
#!perl
$/='.';for(<>){/\S/||last;$c=$s="";for(@w=split){$c.=" "x(length($s)-length$c).c($_);$s.="$_ "." "x(3-length)}$s=~s/ *$//;$s=~s/(.{57}).{3}.+/$1.../;$n=-1-$s=~/ \.\.\./+split" ",$s;$c=~/(\S+\s+){$n}(\S+)/;print~~@w,":\t$s
",c($_),":\t$&
"}sub c{($_=$w=pop)=~y/aeiouyAEIOUY//.'/'.y/a-zA-Z0-9//;}
|