my $code;
{ local $/; $code = <DATA> }  # fast "slurping"

@records = split /\n   (?=\w)/, $code;
for (@records) {
  print ">>$_<<\n";
}

__DATA__
   japhy
    DALnet regular
    Regex Prince
   merlyn
    Perl Hacker
    O'Reilly Author
   Mark_Dominus
    IAQ Author
    ArrayHashMonster Creator