Ajd chapter4

Finished already
Crazy one line perl