xwhile source.perl Loop One-line