my @strings = $line =~ m/(RC[0-9][0-9][0-9][0-9])/;