if ($rows[2] =~ m/\[R\]/g) {