use strict;
use warnings;
use File::Slurp;
my $s = <<ENDOFLIST;
ProtName=1A6QA Den=NA E=0.066
ProtName=1A6QA Den=4 E=0.000
ProtName=1A6QA Den=8 E=0.729
ProtName=1A6QA Den=14 E=0.261
ProtName=1A6QA Den=11 E=0.065
ProtName=1A6QA Den=6 E=0.535
ProtName=1A6QA Den=9 E=0.286
ENDOFLIST
$s =~ s/^.+=//gm;
write_file('file.txt', $s);
Bookmarks