Select Code to Download

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

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

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

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

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

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

if ( $in eq $failure_indices_line ) {

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