$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";
}

##</code><code>##

abc
defgh
fg

##</code><code>##

abc
cde
defgh
gh
fg

##</code><code>##

$gw1, $gw2, $gw3, $gw4, $gw5 = $gw;
if ($gw =~....
if ($gw1 =~....
if ($gw2 =~....
etc...