January 1, 1915  	Franck Pourcel
January 3, 1926 	George Martin
January 3, 1945 	Stephen Stills
January 3, 1946 	John Paul Jones
January 4, 1942 	John McLaughlin
January 5, 1950 	Chris Stein

##</code><code>##

January 1, 1915  	(Birthday) Franck Pourcel - singer
January 3, 1926 	(Birthday) George Martin - singer
January 3, 1945 	(Birthday) Stephen Stills - singer
January 3, 1946 	(Birthday) John Paul Jones - singer
January 4, 1942 	(Birthday) John McLaughlin - singer
January 5, 1950 	(Birthday) Chris Stein - singer

##</code><code>##

#!/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
  
}