my $last_match;

while ( <DATA> ) {
   if ( /^([A-Z]+)$/ ) { print "In if:   $1\n"; $last_match = $1; }
   else { print "In else: $last_match\n"; }
}
__DATA__
FOO
1234
Xyz
BAR
DFgdfg