#!/usr/bin/env perl

use strict;
use warnings;

my $line;

print "\n";

$line = '<a href="http://www.mysite.com/" target="_blank">';
$line =~ /\shref=(["'])?([^\s\>\1]+)/;    # FIRT MATCH
if   ( defined $1 ) { print "\$1= $1\n"; }
else                { print "1) not defined\n"; }
if   ( defined $2 ) { print "\$2= $2\n"; }
else                { print "2) not defined\n"; }

print "\n";

$line =~ /\shref=(["'])?([^\s\>"']+)/;    # SECOND MATCH
if   ( defined $1 ) { print "\$1= $1\n"; }
else                { print "1) not defined\n"; }
if   ( defined $2 ) { print "\$2= $2\n"; }
else                { print "2) not defined\n"; }

__END__

karls-mac-mini:playground karl$ perl -c testomato.pl
testomato.pl syntax OK