perl 字符串中某个字符的替换精确正则表达式

 $oracle_file="1_toby.toby_region.sql";
 $oracle_file=~s/(?<=\d\_)(\w*)(?=\.)/SCHEMA/ig;
 print $oracle_file."\n";

知识点：运用正则表达式的环视匹配，定位到位置。？<=表示想匹配的字符串左边的值，？=表示想匹配字符串右边的值。这样 就可以确定位置了。