Select Code to Download

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

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