外轮廓提取

我想把这个图片的外轮廓轨迹提取出来，用一下代码：

>> im=imread('CZPH.jpg');                %读取原图
figure,imshow(im,[]);title('Raw');  %显示原图


im0=im2bw(im);                       %转二值图像
figure,imshow(im0,[]),title('BW');   %显示二值图像


im2=imfill(im0,'holes');             %填充
im3=bwperim(im2);                   %轮廓提取


figure,imshow(im2,[]); title('')             %显示
figure,imshow(im3,[]);

发现如下问题

很明显这是不正常的现象，因为我要的轮廓轨迹最后居然什么都没有了。如是想换个方法，把外轮廓提取出来。