{ local $/ = '

'; open (STR, '<', \$contents) or die "Opening string: $!\n"; @arr = grep /^

/ && /\[tab\]/, ; print "read $_\n" for @arr; }