my $re = qr{
(?: )?
}x;
$in =
'
New index | ';
my($href, $img) = grep defined, reverse $in =~ $re;
print "href - $href\nimg - $img\n";
$in = 'New index | ';
($href, $img) = grep defined, reverse $in =~ $re;
print "href - $href\nimg - $img\n";
__output__
href - index3.html
img - foo.jpg
href - index3.html
img -