#!perl
sub a{length pop}local$/;$_=<>;s/^\s*//;@i=split//;for(@i){$s=0,++$l,$t++if/\w/;++$w,$v++if/[aeiouy]/i;$z.=$_ if!/[\s.]/;if(/[\s.]/&&!$s){$x++;$s++;$c=0+$w.'/'.$l;$m=a($c)- a$z if!/\./;push@z,$z;@u=split//,"@z";push@c,$c;$z='';if(/\./){if(@u>59){$u[57]=$u[58]='.';splice@u,59,@u-59;$u=join'',@u;$u=~s/ [ .]*$//;splice@c,split/ +/,$u}print$x,": ",@u,".\n";$c[-1]=~s/ *$//;print 0+$v,'/',$t,": @c\n";@z=@c=();$x=$v=$t=0}else{$c[-1].=' 'x-$m;$z[-1].=' 'x$m}$m=$w=$l=0}}
|
#!perl
sub a{length pop}local$/;$_=<>;s/^\s*//;@i=split//;for(@i){$s=0,++$l,$t++if/\w/;++$w,$v++if/[aeiouy]/i;$z.=$_ if!/[\s.]/;if(/[\s.]/&&!$s){$x++;$s++;$c=0+$w.'/'.$l;$m=a($c)- a$z if!/\./;push@z,$z;@u=split//,"@z";push@c,$c;$z='';if(/\./){if(@u>59){$u[57]=$u[58]='.';splice@u,59,@u-59;$u=join'',@u;$u=~s/ [ .]*$//;splice@c,split/ +/,$u}print$x,": ",@u,".\n";$c[-1]=~s/ *$//;print 0+$v,'/',0+$t,": @c\n";@z=@c=();$x=$v=$t=0}else{$c[-1].=' 'x-$m;$z[-1].=' 'x$m}$m=$w=$l=0}}
|
#!perl
sub a{length pop}local$/;$_=<>;s/^\s*//;@i=split//;for(@i){$s=0,++$l,++$t if/\w/;++$w,++$v if/[aeiouy]/i;$z.=$_ if!/[\s.]/;if(/[\s.]/&&!$s){$x++;$s++;$c=0+$w.'/'.$l;$m=a($c)- a$z if!/\./;push@z,$z;@u=split//,"@z";push@c,$c;$z='';if(/\./){if(@u>59){$u[57]=$u[58]='.';splice@u,59,@u-59;$u=join'',@u;$u=~s/ [ .]*$//;splice@c,split/ +/,$u}print$x,": ",@u,".\n";$c[-1]=~s/ *$//;print 0+$v,'/',0+$t,": @c\n";@z=@c=();$x=$v=$t=0}else{$c[-1].=' 'x-$m;$z[-1].=' 'x$m}$m=$w=$l=0}}
|
#!perl
sub a{length pop}local$/;$_=<>;s/^\s*//;@i=split//;for(@i){$s=0,++$l,++$t if/\w/;++$w,++$v if/[aeiouy]/i;$z.=$_ if!/[\s.]/;if(/[\s.]/&&$s==0){$x++;$s++;$c=0+$w.'/'.$l;$m=a($c)- a$z if!/\./;push@z,$z;@u=split//,"@z";push@c,$c;$z='';if(/\./){if(@u>59){$u[57]=$u[58]='.';splice@u,59,@u-59;$u=join'',@u;$u=~s/ [ .]*$//;splice@c,split/ +/,$u}print$x,": ",@u,".\n";$c[-1]=~s/ *$//;print 0+$v,'/',0+$t,": @c\n";@z=@c=();$x=$v=$t=0}else{$c[-1].=' 'x-$m;$z[-1].=' 'x$m}$m=$w=$l=0}}
|
#!perl
sub a{length pop}local$/;$_=<>;s/^\s*//;@i=split//;for(@i){$s=0,++$l,++$t if/\w/;++$w,++$v if/[aeiouy]/i;$z.=$_ if!/[\s.]/;if(/[\s.]/&&$s==0){$x++;$s++;$c=0+$w.'/'.$l;$m=a($c)- a$z if!/\./;push@z,$z;@u=split//,"@z";push@c,$c;$z='';if(/\./){if(@u>59){$u[57]=$u[58]='.';splice@u,59,@u-59;$u=join'',@u;$u=~s/ [ .]*$//;splice@c,split/ +/,$u}print$x,":\t",@u,".\n";$c[-1]=~s/ *$//;print 0+$v,'/',0+$t,":\t@c\n";@z=@c=();$x=$v=$t=0}else{$c[-1].=' 'x-$m;$z[-1].=' 'x$m}$m=$w=$l=0}}
|
#!perl
sub l{length pop}local$/;$_=<>;s/^\s*//;@i=split//;for(@i){$s=0,++$l,++$t if/\w/;++$w,++$v if/[aeiouy]/i;$z.=$_ if!/[\s.]/;if(/[\s.]/&&$s==0){$x++;$s++;$c=0+$w.'/'.$l;$m=l($c)- l($z) if!/\./;push@z,$z;@u=split//,"@z";push@c,$c;$z='';if(/\./){if(@u>59){$u[57]=$u[58]='.';splice@u,59,@u-59;$u=join'',@u;$u=~s/ [ .]*$//;splice@c,split/ +/,$u}print$x,":\t",@u,".\n";$c[-1]=~s/ *$//;print 0+$v,'/',0+$t,":\t@c\n";@z=@c=();$x=$v=$t=0}else{$c[-1].=' 'x-$m;$z[-1].=' 'x$m}$m=$w=$l=0}}
|
#!perl
sub l{length pop}local$/;$_=<>;s/^\s*//;@i=split//;for(@i){$s=0,++$l,++$t if/\w/;++$w,++$v if/[aeiouy]/i; $z.=$_ if!/[\s.]/;if(/[\s.]/&&$s==0){$x++;$s++;$c=0+$w.'/'.$l;$m=l($c)- l($z) if !/\./;push@z,$z;@u=split//,"@z";push@c,$c;$z='';if(/\./){if(@u>59){$u[57]=$u[58]='.';splice@u,59,@u-59;$u=join'',@u;$u=~s/ [ .]*$//;splice@c,split/ +/,$u}print$x,":\t",@u,".\n";$c[-1]=~s/ *$//;print 0+$v,'/',0+$t,":\t@c\n";@z=@c=();$x=$v=$t=0}else{$c[-1].=' 'x-$m;$z[-1].=' 'x$m}$m=$w=$l=0}}
|
#!perl -l
sub l{length pop}local$/;$_=<>;s/^\s*//;@i=split//;for(@i){$s=0,++$l,++$t if/\w/;++$w,++$v if/[aeiouy]/i; $z.=$_ if!/[\s.]/;if(/[\s.]/&&$s==0){$x++;$s++;$c=0+$w.'/'.$l;$m=l($c)- l($z) if !/\./;push@z,$z;@u=split//,"@z";push@c,$c;$z='';if(/\./){if(@u>59){$u[57]=$u[58]='.';splice@u,59,@u-59;$u=join'',@u;$u=~s/ [ .]*$//;splice@c,split/ +/,$u}print$x,":\t",@u,".\n";$c[-1]=~s/ *$//;print 0+$v,'/',0+$t,":\t@c\n";@z=@c=();$x=$v=$t=0}else{$c[-1].=' 'x-$m;$z[-1].=' 'x$m}$m=$w=$l=0}}
|