Select Code to Download

use Text::FixedWidth;
...

$data_ref = $fw->parsefile('data.txt');

$data_ref = [
...
  { name => 'Sam', email => 'sam@mail.com' },
];