my $line = <<'END' http://www.yahoo.com END ; if($line=~m/(.*)(\\s*\)(.*)(\<\/value\>)(.*)/i){ print "3: $3\n"; } else { print "No match\n"; } __END__ 3: http://www.yahoo.com