open my $inputfh, '<', 'Input.txt' or die "cannot open Input.txt - $!"; 
my @lines = <$inputfh>; 
close $inputfh; 
 
shift @lines; 
pop @lines;

 
open my $inputfh, '<', '$list[0]' ; 
my @lines = <$inputfh>;  
close $inputfh;  
 shift @lines;  
pop @lines;

open my $inputfh, '<', '$list[0]' ;

open my $inputfh, '<', $list[0] or die "failed to open <$list[0]> $!";

open my $inputfh, '<', 'Input.txt' or die "cannot open Input.txt - $!"; 
my @lines = <$inputfh>; 
close $inputfh;  
 
shift @lines; 
pop @lines; 
 
open my $outputfh, '>', 'Output.txt' or die "cannot open Output.txt - $!"; 
print $outputfh "@lines"; 
close $outputfh; 
 
#rename ('Output.txt', 'Input.txt');

open(DAT, "$WORKDIR/$list[0]") || die("Could not open file!");

foreach $file (@files) {  
if (-f "$dir$file")  
{  
#$moveloc="/export/elk2/sm425k/new/"; # Make sure the directory is already made.  
#$new = "$moveloc";  
$old = "$dir$file";  
$new = "$WORKDIR";  
move($old, $new) or die "Copy Faild: $!";  
}  
}

#! /usr/bin/perl 
use strict; 
use warnings; 
use File::Copy; 
 
#Paths 
my $datdir = 'Dir/To/Data/'; 
my $workdir = 'Dir/To/New/Data/Dir/'; 
 
#Retrieve and move files 
my @files = grep { (-f "$datdir/$_") } glob ("$datdir/*"); 
foreach my $file (@files) { 
	my $oldloc = "$datdir/$file"; 
	my $newloc = "$workdir/$file"; 
	move ($oldloc, $newloc) or die "Failed to move $oldloc to $newloc: $!"; 
} 
 
#Get latest file (reversed lexographical sort). 
my ($latestfile, @otherfiles) = reverse sort (@files); 
 
#Get lines 
open my $inputfh, '<', "$workdir/$latestfile" or die "Failed to open $workdir/$latestfile: $!"; 
my @lines = <$inputfh>; 
close $inputfh; 
 
#Remove first and last lines 
shift @lines; 
pop @lines; 
 
#Print lines 
foreach my $line (@lines) { 
	my @cells = split /\|/, $line; 
	print "@cells"; 
}

$ cat text.pl 
#!/usr/bin/perl 
use File::Copy; 
use IO::File; 
open my $inputfh, '<',"latestfile" or die "Failed to open latestfile $!"; 
my @lines = <$inputfh>; 
close $inputfh; 
 
#Remove first and last lines 
my @test =shift @lines; 
my @last =pop @test; 
 
 
#Print lines 
foreach my $last (@lines) { 
        my @cells = split /\|/, $last; 
        print "@cells"; 
} $ perl text.pl 
789 ADD 10 
790 ADD 20 
791 CHANGE 30 
791 DISCONNECT  10 
792 ADD  15 
TRL 000000005

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use File::Copy; 
use IO::File; 
 
open my $inputfh, '<',"latestfile" or die "Failed to open latestfile $!"; 
 
my @lines = <$inputfh>;  
close $inputfh;  
  
#Remove first and last lines  
shift @lines;  
pop @lines;  
  
  
#Print lines  
foreach my $last (@lines) {  
        my @cells = split /\|/, $last;  
        print "@cells";  
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use File::Copy; 
use IO::File; 
 
open my $inputfh, '<',"latestfile" or die "Failed to open latestfile $!"; 
 
<$inputfh>; # throw away the first line 
 
while ( my $line = <$inputfh> ) { 
    last if eof; # throw away the last line 
    $line =~ tr /|/ /; 
    print $line; 
} 
 
close $inputfh;