remove extra \ in perl example