#!/usr/bin/perl
use warnings;
use strict;

open my $target, '>', "test-out-1" or die $!;

open my $FILE, '<', 'input_file' or die $!;
while (<$FILE>) {

  chomp;
  my @columns = unpack('a8 a8 a8 a6');
  #print join(" ",map {$_} @columns), "\n";
  #print "@columns[3] \n";
    
  foreach (@columns[$#columns]) {
   print "$_ \n";
      if ($_ =~ /-7/) {
     
      my $ID = $_;
      my $IDform = sprintf ("%4s", $ID);
      
      my $currentline = $.;
      my $currentlineform = sprintf ("%7s", $currentline);

      my @selection = (@columns[0..$#columns-1]);
      my $layout = "%10s"x(@selection) . "\n";
      printf $target $IDform . $currentlineform . $layout, @selection;
      }
  }
}