$_=; chomp; ($htmlini, $something, $more, $htmlend)= m|()(/.*?/)([^<]*).*()|i; print join "\n", ($htmlini, $something, $more, $htmlend); __DATA__ /something/more words