Select Code to Download

open    $readhandle,    "<",    "Input.log";
open    $writehandle,    ">",    "Output.log";

open my $readhandle,  '<', 'Input.log'  or die "Cannot open 'Input.log
+' $!";
open my $writehandle, '>', 'Output.log' or die "Cannot open 'Output.lo
+g' $!";

while(<$readhandle>)
{
$line    =    readline($readhandle);

while ( my $line = <$readhandle> )
{

$line    =    ~/(.)\n/;