use strict;
use warnings;
my $str = qq/
1 2 3 4
----------
C 2, 2(13) R 2, 2( 8) C 2, 2(13) 
----------
C 2, 2(11) C 2, 2(13) R 2, 2(18) 
----------
C 2, 2(18) C 1, 2(11) C 2, 2(13) 
----------
C 1, 2(11) C 2, 2(18) C 2, 2(11) 
/;

my @match = ($str =~ /([A-Z]\s\d+,\s\d+\(\s*\d+\))/g);
print "$_\n" for @match;

__END__

C 2, 2(13)
R 2, 2( 8)
C 2, 2(13)
C 2, 2(11)
C 2, 2(13)
R 2, 2(18)
C 2, 2(18)
C 1, 2(11)
C 2, 2(13)
C 1, 2(11)
C 2, 2(18)
C 2, 2(11)

##</code><code>##

my $str = slurp('file.txt');

sub slurp {
        open(F, shift);
        local $/ = undef;	# undef record seperator
        my $txt = <F>;
        close(F);
        return $txt;
}