Translated by rdtex1
perlre starting translate