Select Code to Download

([A-Za-z])\.[A-Za-z],$1

my $file = "regex.txt";
open FILE, "<", $file or die "Can't open $file: $!\n";
...
        $rrow_test =~ s/$rex[0]/$rex[1]/ig;
    } # END while(my $regex=<FILE>)
close FILE;

Reference to nonexistent group in regex; marked by <-- HERE in m/\1 <-
+- HERE / at C:\utilities\regexTester.pl line 105, <FILE> line 2.