#!/usr/local/bin/perl -w
use strict;
my $is_nested = 0;

my @chunks = ("<cfif bool eq 1>\cJ\cI ",
"<cfif foo = bar>\cJ\cI\cI  ",
"<cfif bar = foo>\cJ\cI\cI  ",
"</cfif>\cJ\cI ",
"</cfif>\cJ\cI\cI  \cJ\cI BOOL is true!\cJ",
"<cfelse>\cJ\cIBOOL is false!\cJ",
'</cfif>');

my $opening_tag = qr/\<cfif/;
my $closing_tag = qr/\<\/cfif/;
my $found_i = 0;

unless ($is_nested) {
	# search for the closing pair (starting at the place the
	# first tag was found + 1)
	# note: this search is good for non-nested tags...
	
	# FIRST WHILE
	while (($chunks[++$found_i] !~ m/^$closing_tag/) && $found_i < @chunks) {}  

} else {
	# have to search a little differently for nested tags
 	# making sure that an ending tag belonging to
	# a nested opening tag is not processed as the ending
	# tag for the current opening tag.
	# In case i sounded awkward, here's a little diagram:
	#
	# <cfif>     <--- this tag
	#    <cfif>  <--- nested open tag
	#    </cfif> <--- end tag for the nested open tag
	# </cfif>    <--- end tag for this tag (the one that has
	#                 to be picked up)
	#	

	my $nested = 0; # count of nested open tags found.

	# SECOND WHILE
	while ((($chunks[++$found_i] =~ m/^$closing_tag/)
		 ? ($nested > 0 ? $nested-- : 0)
	         : ($chunks[$found_i] =~ m/^$opening_tag/   ? ++$nested : 1))
	         && $found_i < @chunks) {

	    print "F: $found_i ",
        	  "N: $nested ",
	          "C: $chunks[$found_i]",
          	;

	}

	}