#!/usr/bin/perl -w
use strict;

open my $Link, "linkfile.txt" or die "linkfile.txt: $!\n";
while (<$Link>){
    next if $. == 1;    # Skip the first line
    chomp;
    my ($infile, $labno, $out, $anonno) = split /\t/;

    print "Anonymizing $infile\n";

    open my $In, $infile or die "$infile: $!\n";
    binmode $In;
    my $content = do { local $/; <$In> };
    close $In;

    $content =~ s?B27-\d{1,3}?B27-$anonno?gsm;

    open my $Out, ">", $out or die "$out: $!\n";
    binmode $Out;
    print $Out $content;
    close $Out;
}