#!perl -p
${$i---5}=$_/!$$i