xwhen source.perl when.. Conditional One-line