add new feature introduction of the modified perl script