perl Text-Quoted