in reply to print line containing string

How do I make it print only the line containing apple

By making $_ containing only one line at a time.

Perl 6 - links to (nearly) everything that is Perl 6.