my @str = map{ \substr($str, $_, 1) } 0..length($s)-1;
$str[3] = 'b' if $str[7] eq 'N';