language: Perl (perl 5.16.2)
date: 206 days 16 hours ago
link:
visibility: public 
1
2
3

$_ = '123 4(5)67 89';
s/(?=[() ])/\\/g;
print;