delete ---> Perl, Barth Partner
input number: