Select Code to Download

while (<DATA>){
    next if 1 .. /^Buffers/;
...
1024     1667721  2975e7c  1667717  6d44e10  1667721  2982000
1024     1667721  2975e7c  1667717  6d44e10  1667721  2982000
1024     1667721  2975e7c  1667717  6d44e10  1667721  2982000

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$