xfore source.perl Loop One-line