#!perl -p
$\=s; (.);$1 ;g&1?t:i;s;.;