#!/usr/bin/env perl

use strict;
use warnings;

print pack 'A12A11A9A40A*' => split /,/ for <DATA>;

__DATA__
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