in reply to Regular expressions
$_=<DATA>; chomp; ($htmlini, $something, $more, $htmlend)= m|(<html>)(/.*?/)([^<]*).*(</html>)|i; print join "\n", ($htmlini, $something, $more, $htmlend); __DATA__ <html>/something/more words<br/></html>
perldoc perlre perldoc perlrequick
perl -le '$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,$_^=q,$\^-]!,,print'
|
|---|