数据：#A。。。。。。。。#。。。。。。。。#。。。。。。。。。。。#。。。。。。。。Bif(/^#A.*B/s){...}tip: /s可以使.匹配任意字符，包括换行符
/\n(#.*?\n)+/但是不匹配第一行，如果你需要包括第一行，可以：/(#.*?\n)+/
@a=<>$_=join "",@a;while(/(=pod(.*?)=cut)/mg){}
/=pod.+?=cut/i
