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