while (<$infile_lib1>) { if ($_ =~ /values \( \/ /) { $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"; } } #### 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", \ );