if source.perl Conditional