can't get backreferences to work



Could someone tell me what I'm doing wrong to cause the backreference
variable to fail to be assigned here? It's entering the If block 4
times, so I know it's matching but there's nothing in $1?

Thank You!


#! /usr/bin/perl
use warnings;
use strict;

open FH, 'results.xml' or die "this didn't work: $!";

$/ = "<test-case name=";

while (<FH>)
{
if (/rssupports/)
{
print "DEBUG: \n";
print "$1" if defined $1;
}
}

OUTPUT:
DEBUG:
DEBUG:
DEBUG:
DEBUG:
.



Relevant Pages

  • Re: Problem page
    ... *Bri.* supposed: If you can get into the page above try entering a any name and select ... "First World War" - does it fail for you too? ...
    (uk.people.silversurfers)
  • Re: Win98 serial
    ... At what point will it fail? ... Immediately on entering, or later ... once it's finished installing? ... You won't be able to proceed past the serial number entry box IIRC. ...
    (uk.comp.homebuilt)
  • Re: Win98 serial
    ... At what point will it fail? ... Immediately on entering, or later ... once it's finished installing? ... You won't be able to proceed past the serial number entry box IIRC. ...
    (uk.comp.homebuilt)
  • I need validation to fail on an apostrophe entered into a textbox for my regularexpression validato
    ... you are not entering in any apostrophes." ... to fail the above validation - which I believe means I need the ...
    (microsoft.public.dotnet.framework.aspnet)