$string = '111^H^H^H^H^H^H^H^H...';if($string =~ m/((?<=<\/RMBP>)[^>]+)/g){ print $1 , "\n";} 结果：^H^H^H^H^H^H^H^H...
