for ( @FileArray ) {
    open FILE or die $!;

##</code><code>##

while ( <FILE> ) {
  $in = $_

##</code><code>##

while ( $in = <FILE> ) {
    chomp $in

##</code><code>##

if ( $line =~ /^1.*?MSC.NASTRAN.*?PAGE/ ) {
    my $name = <FILE>;
    
    $loadname = $name if ($name !~ /^\s*$/ );
    next;
}

##</code><code>##

if ( $line =~ m/^0\s+(\S*?)\s+(SUBCASE)|(SUBCOM)|(SYM\b)|(SYMCOM)|(REPCASE)/ ) {
    $loadname = $1 if $1;
    $type = $+;
    next;
}

##</code><code>##

my $failure_indices_line = "F A I L U R E ....... ( Q U A D )";
...

if ( $in eq $failure_indices_line ) {

##</code><code>##

if ( $in =~ /[\d.]+/ ) {