#!perl -ap056
($x,@D)=map{$_.=$"x(3-length);y/IAaiyEueOo//."/".s/\w/$&/g}$_,@F;$_="@F ";s/(.{57})...+\./$1.../;$_=@F.":	$_
$x:	${s/\S+[ .]+/A.length$&/ge,\pack$_,@D}
"if@F;s/ +$//mg

#!perl -ap056
($x,@D)=map{$_.=$"x(3-length);y/aeiouyAEIOUY//."/".s/\w/$&/g}$_,@F;$_="@F ";s/(.{57})...+\./$1.../;$_=@F.":	$_
$x:	${s/\S+[ .]+/A.length$&/ge,\pack$_,@D}
"if@F;s/ +$//mg

#!perl -ap056
($x,@D)=map{$_.=$"x(3-length);y/aeiouyAEIOUY//."/".s/\w/$&/g}$_,@F;$_="@F ";s/(.{57})...+\./$1.../;$_=@F.":	$_
$x:	${s/\S+[ .]+/A.length$&/ge,\pack$_,@D}
"if@F;s/ +$//mg

#!perl -ap056
($x,@D)=map{$_.=$"x(3-length);y/aeiouyAEIOUY//."/".s/\w/$&/g}$_,@F;$_="@F";s/(.{57})...+\./$1.../;$_=@F.":	$_
$x:	${s/\S+[ .]+/A.length$&/ge,\pack$_.9,@D}
"if@F;s/ +$//mg

#!perl -ap056
($x,@D)=map{$_.=$"x(3-length);y/aeiouyAEIOUY//."/".s/\w/$&/g}$_,@F;$_="@F";s/(.{57})...+\./$1.../;$_=@F.":	$_
$x:	${s/\S+[ .]+/A.length$&/ge,\pack$_.9,@D}
"if@F;s/ +$//mg

#!perl -ap056
($x,@D)=map{$_.=$"x(3-length);y/aeiouyAEIOUY//."/".s/\w/$&/g}$_,@F;$_=join$",@F;s/ $//;s/(.{57}).{4,}/$1.../;$r=@F.":	$_
$x:	";s/\S+[ .]+/A.length$&/ge;s/\d+$/*/;$_=$r.pack($_,@D)."
"if@F

#!perl -ap056
map$_=y/aeiouyAEIOUY//.'/'.s/\w/$&/g,$x=$_,@D=@F;$_=join$",map$_.$"x(3-length),@F;s/ $//;s/(.{57})....+/$1.../;$r=@F.":	$_
$x:	";s/\S+[ .]+/'A'.length$&/ge;s/\d+$/*/;$_=$r.pack($_,@D).'
'if@F

#!perl -ap056
($x,@D)=map y/aeiouyAEIOUY//.'/'.s/\w/$&/g,$_,@F;$_=join$",map$_.$"x(3-length),@F;s/ $//;s/(.{57})....+/$1.../;$^A=@F.":	$_
$x:	";s/ [^ .]/ @/g;s/[^@]/

#!perl -ap056
($x,@D)=map y/aeiouyAEIOUY//.'/'.s/\w/$&/g,$_,@F;$_=join$",map$_.$"x(3-length),@F;s/ $//;s/(.{57})....+/$1.../;$_=$^A="	$_" if@F;s/(\s)[^ .]/$1@/g;s/[^@	]/