## Set pragma

use strict;

## Declare array, set scaler, read in file then

my @ejectapes = qw(/usr/local/bin/perld/lvimgGH_ms0_tapes.orig);
#($^I, @ARGV) = ('.bak', @ejectapes);

open (FILE, "< @ejectapes") or die "cannot open @ejectapes: $!";
while (<FILE>) {
        chomp;
        print "$_ " if 1 .. 40;
        shift (@ejectapes, "eject 0,0,0");
}
#s/(^E+)/eject\t0,0,0 \t$1/
#my $foo = "eject 0,0,0";
#my $a = shift(@ejectapes, $foo);
close FILE;