/coWs/i

##</code><code>##

	+/six/i
	-/were/

##</code><code>##

	+[Ss][Ii][Xx]

##</code><code>##


# Process Global Exceptions first

foreach $except (@$glob_except) {
	$cexcept = substr($except, 1);
	$targf{$tkey} = "1:0" if ($tkey =~ /$cexcept/);  # EXPANDS VARIABLE HERE

### I would like the delimeters to be contained in the variable:  ...($tkey =~ $cexcept);

}

elsif ($ttype eq '+') {
	if ($tkey =~ /$ttext/) { ;  # EXPANDS VARIABLE HERE
		$targf{$tkey} = "3:$err_rtn";
		$found = 1;
	}
}
elsif ($ttype eq '-' && substr($targf{$tkey},0,1) == 3) {
	if ($tkey =~ /$ttext/) {;  # EXPANDS VARIABLE HERE
		$targf{$tkey} = "2:0";
		$found = 0;
	}
}
else {
### ETCETERA 	

### THIS IS HOW THE HASH CONTAINING THE MATCH STRING IS LOADED

elsif ($line_header eq '!') { ## Optional
# Spec a global exception that affects all lines
# interpolation takes place. 
unless ($trans_state == 2) 
	{die "ERR: Global exception out of sequence";}
	push (@$glob_except, $line);    #  &lt;= LOADING THE VARIABLE FROM FILE
	# Trans state stays at 2 until set to 3 in subsequent logic