perl -wle '$y=5; print ~-$y;'