command line program that takes a regex and return what it matches

match

#!/usr/bin/env perl

use strict ;
use warnings ;
use utf8 ;
use feature qw{ postderef say signatures state } ;
no warnings qw{ experimental::postderef experimental::signatures } ;

use Getopt::Long ;

my $regex ;
GetOptions(
	'regex=s' => \$regex 
);
exit unless defined $regex;

my @output;
while (<STDIN>) {
	push @output , $_ =~ m{$regex}gmix;
}
say join "\n", @output;