Is there a way of running quotemeta between bounds however, e.g.

$line = 'if($appliance =~ /toilet(32)/)';
[download]

Should be:

$line = 'if($appliance =~ /toilet\(32\)/)';
[download]

In a simple one-liner?

Cheers!