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