[Perl]add quote function in Perl