$txt=join "\n",0..99;
print join "\n", (split /\n/, $txt, -1 )[-5 ..-1];

##</code><code>##

95
96
97
98
99

##</code><code>##

print join "\n",grep {defined} (split /\n/,$txt,-1 )[-16 ..-1]