#!/usr/bin/perl -w
use strict;
use warnings;

while (defined(my $line = <DATA>) ) {
    print $line;
    redo;
}

__DATA__
1

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

my $j = 2;
while ( my $i = $j ) {
    print $i if defined $i;
    last unless $i--;
    redo;
}