#!/usr/bin/perl

use strict;
use warnings;

BJSFM_MS();


sub BJSFM_MS {
    my @temp;
    my $string1="FAILURE CRITERIA PER PLY";
    my $string2="AUTOMATIC SEARCH FOR FAILURE";
    while (my $line = <DATA>) {
        if ($line =~ /$string1/) {
            undef @temp;
            <DATA> for 1 .. 3;
            while (my $inner = <DATA>) {
                last if $inner =~ /^$/;
                push @temp, $inner;
            }
        }
    }
    use Data::Dumper;
    print Dumper \@temp;
}
__DATA__
                   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
[download]