while(<>){
given($_){
when(...){...}
when(...){...}
when(...){...}
}}