Help for this page
$gw="abcdefgh"; if ($gw =~ m/abc/ig){ ... if ($gw =~ m/fg/ig){ print "fg\n"; }
abc defgh fg
abc cde defgh gh fg
$gw1, $gw2, $gw3, $gw4, $gw5 = $gw; if ($gw =~.... if ($gw1 =~.... if ($gw2 =~.... etc...