perl -lne '(1x$_) =~ /^1？$|^(11+？)\\1+$/ || print \ 会点 js 的正则，看这个完全天书.尽管网上有零碎的英文解读.
C语言编写一程序，从键盘输入圆半径r，求圆周长l和圆面积s。输出时要有文字说明， 借花献佛，刚回答别人的问题include\"math.hinclude\"stdio.hvoid main(){ float r，l，s；printf(\"input r：\\n\")；scanf(\"%f\"，&r)；l=2*r*3.1415926；s=r*r*3.1415926；printf(\"周长=.2f\\n，面积=.2f\\n\"，l，s)；}
perl -lne '(1x$_) =~ /^1？$|^(11+？)\\1+$/ || print \ 1：只讲单引号内的内容。(1x$_)首先$_这个全局变量是指默认输入和模式.
