kill replace perl