use strict;
use warnings;

my $fileStr = <<'END_FILE';
([A-Za-z])\.[A-Za-z],$1
END_FILE

open my $inFile, "<", \$fileStr or die "Can't open file: $!\n";

my $rrow_test = 'A.BC';

while (my $regex = <$inFile>) {
    chomp $regex;

    my @rex = split (/,/, $regex);

    $rrow_test =~ s/$rex[0]/$rex[1]/eeg;
    print "$rrow_test\n";
}

close $inFile;