$ perl -le'
use Data::Dumper;
for ( "C123xyz", "Cklm" ) {
    push @data, /C(\d*)/, "MARKER";
    }
print Dumper \@data;
'
$VAR1 = [
          '123',
          'MARKER',
          '',
          'MARKER'
        ];