xwhile source.perl while.. Loop One-line