note
sulfericacid
The following code is untested, but probably has a 90-95% chance of working.
<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 =~ m/(\d+\s+)(.+)/;
$lines[$cnt] = "$1 (Birthday) $2 - singer";
}
open(LOG, "> source2.txt") or die "Error $!";
print LOG join("\n", @lines);
close(LOG);
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-115576">
<br><br>
"Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us" <br><br>
sulfericacid
</div></div>
555911
555911