PERL新手入门，请赐教

PERL新手入门，请赐教
在Ｃ-shell中cut的用法：　echo panel.hw | cut -d "." -f 1,我可以得到panel;

想请问各位ＰＥＲＬ高手：用ＰＥＲＬ如何将panel.hw 分开得到panel,请赐教！

不胜感激！
请将程式写给我看下！谢谢！