Select Code to Download

my ($nobrackets) = (qr/[^\{^\}]+/);
&replace(qr/\{$nobrackets\}/,'$1') #This line is changed below.
...
sub replace{
s/$_[1]/$_[2]/g
}

my ($nobrackets) = (qr/[^\{^\}]+/);
&replace(qr/\{$nobrackets\}/,"$1") #Using qq// instead of q//.
...
sub replace{
s/$_[1]/$_[2]/g
}

#!/usr/bin/perl
$_='{\selectlanguage{english}
...
s/\{($nobrackets)\}/($1)/g;
 print "Pass $pass:\n\n". qq{$_}."\n\n\n";
}

Pass 1:

...
Which of the following expresses the value of the total current
) startitalic (I) enditalic startitalic ( startsubscript T endsubscrip
+t) endital
ic(in the system made up of the three resistors in series?)).