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