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