In modern Perl the attibutes would be accessed through accessors so the original example needs tr/{}/()/