Use given/when construct instead of switch or if/then/else for parsing

Ref:
http://transfixedbutnotdead.com/2010/08/30/givenwhen-the-perl-switch-statement/

perldoc perlsyn