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