highlighting problems after /\|/

[schuan01]

Steps to Reproduce:

1. Copy the code after this steps in a new file.
2. See the bad coloring(all red) after "my @linea = split /|/, $LINEA;"

---- EXAMPLE CODE ---

my $LINEA = $_;
	chomp( $LINEA );
	my @LINEA = split /\|/, $LINEA;
	
	$HOJATNO++;

	# creamos el lote
	if ( not ref $LOTE_REF ) {
		#Supongo que 
		my ( $EMISION, $ORDEN, $LOTE) = ( $LINEA[$POS_EMISION], $LINEA[$POS_ORDEN], $LINEA[$POS_LOTE] );
		
		$LOTE_REF = CE::Lote->new(-lote => $LOTE, -ambiente => $AMBIENTE, -cliente => $CLIENTE, -trabajo => $TRABAJO,-emision => $EMISION, -orden => $ORDEN );
	}
	
	#Leo datos que necesito
	my ( $SPOOL, $INTERNO, $HOJA ) = ( $LINEA[$POS_SPOOL], $LINEA[$POS_INTERNO], $LINEA[$POS_HOJA] );
	my ( $IMPRIME, $GENERA, $VISUALIZA ) = ($LINEA[$POS_IMPRIME], $LINEA[$POS_GENERA], $LINEA[$POS_VISUALIZA] );
	my ( $VALOR_CRITERIO1A, $VALOR_CRITERIO1B ) = ( $LINEA[$POS_CEDULA], $LINEA[$POS_TIPORECIBO] );
	my ( $VALOR_CRITERIO2A, $VALOR_CRITERIO2B ) = ( $LINEA[$POS_NROEMPLEADO], $LINEA[$POS_TIPORECIBO] );
	my $VALOR_CRITERIO3A = $LINEA[$POS_GENERACION];

[aeschli]

This issue was moved to textmate/perl.tmbundle#28