[check-->PERLMONKS_001]
[check-->PERLMONKS_002]
[check-->PERLMONKS_003]

##</code><code>##

PERLMONKS_001
PERLMONKS_002
PERLMONKS_003

##</code><code>##

	if($array[$i] =~ /Check-->\s*\d+$/)
			{
				$Output= $1;