use v5.10;
use strict;
use warnings;

my $re = ...;

while ( <> ) {
   say $1 while /$re/g;
}