I having trouble parsing links out of a web page source. The regexp picks up the beginning of one similar match and the second part of a similar match.I have used lookback's and lookforward's to no avail.The false match is the first match the rest are correct. Thanks in advance.

use strict;
use warnings;
use WWW::Curl::Easy;
my $curl = WWW::Curl::Easy->new;

$curl->setopt(CURLOPT_HEADER,1);
$curl->setopt(CURLOPT_URL, 'http://www.reddit.com/r/wallpapers.rss');
my $response_body;
$curl->setopt(CURLOPT_WRITEDATA,\$response_body);
# Starts the actual request
my $retcode = $curl->perform;
# Looking at the results...
if ($retcode == 0){
  print("Transfer went ok\n\n");
  my $response_code = $curl->getinfo(CURLINFO_HTTP_CODE);
  # judge result and next action based on $response_code
  open(F ,">/home/philip/Desktop/reg-out.txt");
  print F "$response_body\n\n";
  close(F);
 my @urls=$response_body =~ m{(http://b.thumbs.redditmedia.com/(?!png)
+(?<!png).+?(?!png)(?<!png)\.jpg)}gi;
  #print("Received response: $response_body\n\n");
  print scalar @urls ."\n\n";
  $" ="\n\n";
  
  print "@urls\n";

  #`feh --bg-seamless $urls[$number]`;
} else {
  # Error code, type of error, error message
  print("An error happened: $retcode ".$curl->strerror($retcode)." ".$
+curl->errbuf."\n");
}

[download]

In reply to regex problem by grasshopper!!!

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.