fixed quoting for perl 5.8