Help for this page

Select Code to Download


  1. or download this
    $txt=join "\n",0..99;
print join "\n", (split /\n/, $txt, -1 )[-5 ..-1];
  2. or download this
    95
96
97
98
99
  3. or download this
    print join "\n",grep {defined} (split /\n/,$txt,-1 )[-16 ..-1]