#!/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

##</code><code>##

$ pm_pack_fmt_txt.pl
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