By looking at your data, here is the script which uses cLive ;-)'s regex, with surrounding details.

while(<DATA>){
    ($companyinfo,$date,$number) 
    = $_=~m[^(.*?)\s+(\w+\s+\d{1,2}\,\s+\d{4})\s+(\d+)$];
    print "$companyinfo\n$date\n$number\n\n";
}
__DATA__
Bob's Company VA chickens and cows April 23, 2003 2365
Elizabeth P. Jones Inc.WY widgets February 4, 2003 4
Big Huge CorporationUSAserversworkstationsrouters April 17, 2003 99999
[download]

artist