text perl update