#!/usr/bin/perl


use strict;

my $operon; 
my %operonHash; 


while (<>) { 

chomp; 
if ( /(\b.+?\b)/ ) { # word boundary + any character at least once, up to the first word boundary. 
	#print "Matched: |$`<$&?>$'|\n"; 
	$operon = $_; 
	#print  $& . " " ; 
	$operonHash{$&} = ();  
	} else { 
	print "No match. \n";
	}
	
	print "\n"; 
	
if ( /\w+\|/ ) { # word boundary + any character at least once, up to the first word boundary. 
	print "Matched: |$`<<$&>>$'|\n"; 

	} else { 
	print "No match. \n";
	}

}