#!/usr/bin/perl
use warnings;
use strict;

my @foo;
my $blah = q/"'/;

while(<>) {
	s/href=[$blah](.[^$blah]*)[$blah]/push @foo, $1/eg;
};

print "$_\n" foreach @foo