my( $left, $right ) = undef =~ /(never)(match)/;