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