使用Perl打开在Mac Excel中创建的CSV文件

I'm having a bit of trouble with the Perl code below. I can open and read in a CSV file that I've made manually, but if I try to open any Mac Excel spreadsheet that I save as a CSV file, the code below reads it all as a single line. I'm having a bit of trouble with the Perl code