my($this, $that) = $string =~ /abc(def).+?(pq)$/;