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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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


##</code><code>##

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