use strict;
#use warnings;


my @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');

foreach (@array) {
  if(/<QSL_Rcvd:\d+>(Y)/i) {
    print "Good Record: $_\n";
  } else {
    print "Bad Record: $_\n";
  }
  print "in loop: \$1 = $1\n";
} continue {
    my $var = 1;

    print "in continue: \$1 = $1\n";
}
print "after loop: \$1 = $1\n";

##</code><code>##

Good Record: <Band:3>40M <Call:5>KD4RR <QSL_Rcvd:1>Y <QSL_Sent:1>Y
in loop: $1 = Y
in continue: $1 =
Bad Record: <Band:3>40M <Call:5>K7RRR <QSL_Sent:1>Y
in loop: $1 =
in continue: $1 =
Good Record: <Band:3>40M <Call:5>W7FAL <QSL_Rcvd:1>Y <QSL_Sent:1>Y
in loop: $1 = Y
in continue: $1 =
after loop: $1 =