use strict;
use warnings;
use List::MoreUtils qw(mesh);
use Data::Dumper;

my @users;
my @fields = qw(login uid gid name home shell);
while (<DATA>) {
    m#^\s*([\w-]+):x:(\d+):(\d+):([\w\s\(\),-]*):([\w/]+):([\w/]*)$#
      or die "Malformed input [$_]";
    push @users, { mesh @fields, @{[//]} };
}

print Dumper \@users;
__DATA__
root:x:0:0::/:/usr/bin/ksh
paul:x:201:1::/home/paul:/usr/bin/ksh
jdoe:x:202:1:John Doe:/home/jdoe:/usr/bin/ksh