I found the function 'translate' in bioperl. But I don't find 'transcribe'. Is there such a function?