#!/usr/bin/perl -w
use strict;

my $str = "07870635509,3,0,29052002,DORMANT,05011998,1,2,128,0,0,0";

my @arr = split(',', $str);
print "field5 = $arr[4]";