delete ---> PERL MACHINERY
input number: