#!perl -p $_/=2if$_%2-1