#!/usr/bin/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";}