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