if ($m =~ /$fa/g){

##</code><code>##

  if ($s =~ /$d/g){

##</code><code>##

  if ( $s =~ /\b$d\b/i ) {