#!/usr/bin/perl

# https://perlmonks.org/?node_id=1230880

use strict;
use warnings;

my $pattern = shift;
chomp( @ARGV = <> );
/$pattern/ and print while <>;
[download]