xif source.perl if.. Conditional One-line