or download this
my $filename = $ARGV[0];
open (_filehandle_, "<$filename") or die "Meeeeep! $filename does not
+exist!\n";
my @file = <_filehandle_>;
...
my $results = eval ($line);
print '$results: '.Dumper($results);
my $colpattern = $results->{"col_pattern"};