#!/usr/bin/perl

format STDOUT_TOP=
Name                   DOB      Age
---------------------- ------   ---
.

format STDOUT=
@<<<<<<<<<<<<<<<<<<<<< @#####   @##
$name, $DOB, $age
.

while (<DATA>) {
    ($age, $DOB, $name) = split /,\s+/, $_;
    write;
}

__DATA__
30, 010190, Name11111
40, 020280, Name222