in reply to Re^5: copy line with character
in thread copy line with character

Untested: my $find = qr/^(?:A|C)/;