semit t perl « ' gd