in reply to Pattern matching

You are capturing the match, try this untested:
if($line =~ /check.*\>\s*([^>]+)$/)
{
     print "$1\n";
}

[download]

Replies are listed 'Best First'.
Re^2: Pattern matching
by pklausner (Scribe) on Jan 13, 2012 at 14:20 UTC
    Yes, the sub-match parenthesis are missing. And the PERLMONKS_ part. And the case of Check. Should be (still not tested): 
        if($array[$i] =~ /check-->\s*(\S*\d+)$/)
            {
                $Output= $1;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom