my ($qr, $mod) = $re =~ m#^m~(.*)~(.*)$#;