FAILURE CRITERIA PER PLY DIST ANGLE PLY FAILURE NUMBERS 1 2 SHEAR 0.000 0.00 -45.00 0.238 0.282 -1.459 0.000 0.00 0.00 0.971 1.369 0.004 0.000 5.00 -45.00 0.475 0.142 -1.585 0.000 5.00 0.00 1.003 1.531 -0.274 0.000 10.00 -45.00 0.721 0.037 -1.623 FAILURE CRITERIA PER PLY DIST ANGLE PLY FAILURE NUMBERS 1 2 SHEAR 0.000 0.00 -45.00 0.247 0.293 -1.514 0.000 0.00 0.00 1.008 1.422 0.004 0.000 5.00 -45.00 0.493 0.147 -1.645 0.000 5.00 0.00 1.042 1.589 -0.284 #!usr/bin/perl use Tk; use Cwd; use strict; use warnings; # ########################################################################################### # GUI Building ########################################################################################### # # Create Main Window my $mw=new MainWindow; my $filename; my $string1; my $string2; my $line; my $n; my $test; my $skip1; my $skip2; my $skip3; my %temp; my $ms_button = $mw->Button(-text=>"MS", -command=> \&BJSFM_MS)->pack(); MainLoop; sub BJSFM_MS { $filename="BJSFM_out.prn"; open(OUTPUT_FILE, "< $filename") or die "Can't find $filename!"; $string1="FAILURE CRITERIA PER PLY"; $string2="AUTOMATIC SEARCH FOR FAILURE"; while ($line = ) { if ($line =~ $string1) { $skip1 = ; $skip2 = ; $skip3 = ; $n=1; do { $temp{$n} = ; n++; } until ???????? Im not sure here? } } close(OUTPUT_FILE); print (%temp); }