#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd pp /;

my $samplefile = q{
values ( \
            "0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345", \
            "0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345", \
            "0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345", \
            "0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345", \
            "0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345", \
            "0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345", \
            "0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345", \
          );
};

my @DIN_SETUP_RISE_1;
my @DIN_SETUP_RISE_2;
my @DIN_SETUP_RISE_3;
open my($infile_lib1), '<', \$samplefile;
while (<$infile_lib1>) 
			{
				if ($_ =~ /values \( \/ /)
					{
						
						my $line = <$infile_lib1>;
						@DIN_SETUP_RISE_1 = split /,/,$line;
						print "@DIN_SETUP_RISE_1 \n";
						$line = <$infile_lib1>;
						@DIN_SETUP_RISE_2 = split /,/,$line;
						print "@DIN_SETUP_RISE_2 \n";
						$line = <$infile_lib1>;
						@DIN_SETUP_RISE_3 = split /,/,$line;
						print "@DIN_SETUP_RISE_3 \n";
					} else {
                        dd( nomatch => $_ );
                    }
			}

dd( DIN => \@DIN_SETUP_RISE_1, \@DIN_SETUP_RISE_2, \@DIN_SETUP_RISE_3 );
__END__
("nomatch", "\n")
("nomatch", "values ( \\\n")
(
  "nomatch",
  "            \"0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345\", \\\n",
)
(
  "nomatch",
  "            \"0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345\", \\\n",
)
(
  "nomatch",
  "            \"0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345\", \\\n",
)
(
  "nomatch",
  "            \"0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345\", \\\n",
)
(
  "nomatch",
  "            \"0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345\", \\\n",
)
(
  "nomatch",
  "            \"0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345\", \\\n",
)
(
  "nomatch",
  "            \"0.1234567, 0.2345678, 0.3456789, 0.4567891, 0.56789123, 0.67891234, 0.78912345\", \\\n",
)
("nomatch", "          );\n")
("DIN", [], [], [])