while (my $line = <STDIN>) {
   $line = lc + $line;
}
continue {
   print $line;  #still visible
}
# $line now out of scope here

##</code><code>##

my $count = 0;
while ( $count < 10 ) {
   print "$count\n";
} continue {
   $count++;
}