#!/usr/bin/env perl
use strict;
use warnings;
die "Usage: blah blah\n" unless @ARGV;
my $regex = qr/@{[shift]}/;

/$regex/ && print while <>;