my $line;
open FH,"file.ext" or die $!;
$line=$_ while(<FH>); close FH; #now the last line is in $line
my($id)=split(/\|/,$line);
#now you can use $id+1