#!/usr/bin/perl -w
#
# Scenario: Given lines of f77 code, parse out the comma delimited variables.
#
use Data::Dumper;
use Text::Balanced qw(extract_delimited extract_multiple extract_variable);
# A real application will read in f77 source, this is just a sample.
my $string = "real*8 Eparams(0:maxParam),Emvm(0:3),MyArray(row,col),YourArray(12,(j,k),m)";
#
my @fields = extract_multiple($string,
           [ sub { extract_delimited($_[0],q{\,}) } ], undef, 1);
print "Fields:",Dumper(\@fields);
exit(0);