Help for this page

Select Code to Download

Select or download this
```
grep{$_!~/home/&&print"$_\n"} @list;
```

Select or download this

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.