perl -MData::Dumper -e '@t= split(/(?=<)|(?=#[^#]+#)/,"Foo bar <cfoutput>#var#as</cfoutput>"); print Dumper(\@t);'