this is a cool language translator for perl