### Code Snippet

@array = ('<Band:3>40M <Call:5>KD4RR <QSL_Rcvd:1>Y <QSL_Sent:1>Y',
          '<Band:3>40M <Call:5>K7RRR <QSL_Sent:1>Y',
          '<Band:3>40M <Call:5>W7FAL <QSL_Rcvd:1>Y <QSL_Sent:1>Y');

my $num_elements = @array;
my $counter = 0;

while ($counter < $num_elements)
{
  $array[$counter] =~ /(QSL_RCVD:|QSL_Rcvd:)(\d+)>(\w+)/;
  if ($3 eq "Y")
  {
    print "Good Record: $array[$counter]\n";
    $counter++
  }
  else
  {
    print "Bad Record: $array[$counter]\n";
    $counter++
  }
}