$gw="abcdefgh";
if ($gw =~ m/abc/ig){
	print "abc\n";
}
if ($gw =~ m/cde/ig){
	print "cde\n";
}
if ($gw =~ m/defgh/ig){
	print "defgh\n";
}
if ($gw =~ m/gh/ig){
	print "gh\n";
}
if ($gw =~ m/fg/ig){
	print "fg\n";
}