How to find a matched line in a file and print all lines that are after it?

Question

Perl

We have, for example, a file with the following content:

AAA
BBB
CCC
DDD
EEE
GGG

There is a task to find the line CCC in it and only the rest of the contents of the file.
How to implement this in Perl?
Thank you.

Answer 1

perl -ne '$print=1 if /pattern/; print if $print'
I was told that there is a more elegant solution:
perl -ne 'print if /pattern/ .. eof'