Select Code to Download

my $extractor;    # Must be a seperate statement.
$extractor = qr/
...
/x;

my @links = $text =~ /$extractor/g;

my $extractor;    # Must be a seperate statement.
$extractor = qr/
...
/x;

my @links = $text =~ /$extractor/g;