Reformatted obsolete usage of "( ?" to remove warning in perl 5.18.