#!/usr/bin/perl

use warnings;
use strict;

open(LOG, "source.txt") or die "error";
my @lines = <LOG>;
close(LOG);

my $cnt = 0;
foreach my $line (@lines)
{
  $cnt++;
  $line =~ s/(\d+\s+)(.+)/$1
  
}