#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

my $file = 'test.csv';

my $csv = Text::CSV->new();

open (CSV, "<", $file) or die $!;

while (<CSV>) {
    if ($csv->parse($_)) {
        my @columns = $csv->fields();
        print "@columns\n";
    } else {
        my $err = $csv->error_input;
        print "Failed to parse line: $err";
    }
}
close CSV;

##</code><code>##

Account,Login Name,Password,Web Site,Comments
Google Docs,george123,F0oB@r,http://www.google.com/docs,The GoodleDocs site
Amazon,george123,fo0bA7,http://www.amazon.com,The Amazone Kindle site
Apple,george123,mM_B39Aa,https://www.apple.com/accountmanagement,My Apple account

##</code><code>##

Account Login Name Password Web Site Comments
Google Docs george123 F0oB@r http://www.google.com/docs The GoodleDocs site
Amazon george123 fo0bA7 http://www.amazon.com The Amazone Kindle site
Apple george123 mM_B39Aa https://www.apple.com/accountmanagement My Apple account