@c=split//,<>;while(<>){s/_/shift@c/eg;print}