please assist

I want to loop through file. (I have that covered)
I want to add two ~~ at the end of each line. Can anyone assist??

Here is what I have so far :

#!/usr/bin/perl5

open (TRANSFER, "+<Page_1x.html");

@file = <TRANSFER>;
seek TRANSFER,0,0;


foreach $line(@file) {

$line =~ ??????????????; #this is the line I need help on
print TRANSFER $line;

}


close TRANSFER;


exit;



Thank you

I got it, thanks anyways