perl 分割文件路径和文件名

while (<DATA>) {

    ($name1, $name2) = /(.*)\\(.*)/;
 print "$name1   $name2\n";

}

__DATA__
E:\xyz\123\A汉字.doc
E:\f中文\abc\123\pp.txt
E:\mm\pic\a哈d哈\abc.jpg
E:\shen\ab\2啊\2哦2.jpg
E:\a\b\e\c.jpg