my $r = "ju";
while (1) {
  print uc $r if $r and $r ne "ju";  # do some processing
  $r and next;

# I'm now at the end of the loop
  print uc "hacker", "\n";  # adding missing word

# WARNING: uncomment the following line or push the button
  #not $r and last;
} continue {
  $r = <DATA>;
}
__DATA__
Just
Another
Perl