$ more replace.pl 
#!/usr/bin/perl -w -pi.orig
s/(a)(b)/$1{$2}/g;

$ more test.txt
ab

$ ./replace.pl test.txt
Use of uninitialized value within %1 in substitution iterator at ./replace.pl line 3, <> line 1.
$ more test.txt
(an empty line)