for( $_ ='YtaohrPr akre nte elhce.'; ($i+2)**-1>  2/length; ++$i )
{ @a = split  /(.)./;
  @b = split /.(.)/ ; print ( ( $_ = join '', @a, @b ), "\n" );  }
[download]