perl正则表达式 ([a-z]{1})\. 替换成 $1
完整的perl语言的程序如下
#!/usr/bin/perl$string = 'q.';$string =~ s/([a-z]{1})\./$1/g;print "$string\n";运行结果q
