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

##</code><code>##

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