3098
4908
3098
54098
34098
2308
9987
##</code><code>##

my $stuff = 'file.txt';
open(F, "$stuff") || die "Can not open file: $!\n";
my @records = (<F>);
print "@records\n";
s/lastlineofdata//;  #This is the part I am struggling with
close(F);