#!perl -ap
$_=/./&&$F[$x++%@F].$"