#!/usr/local/bin/perl

use strict;
use warnings;
  my $filename = 'C:Desktop\data.log';
  open(my $file1, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";
  while (my $row = <$file1>) {
  chomp $row;
  print "$row\n";
 }