Select Code to Download

my $pattern = 'C1, 2(11)';
while (<DATA>)
...
 next if not /$pattern/;
 # do something with the line if it has $pattern
}

next if not /^$pattern/;