perl -pe "s/^/++$i.' 'x4/e" filename