Pattern/Semantics.pm: revisited way to condtionnaly use perl feature