#!/usr/bin/perl
my $match = qr"some_(\w+)_thing"; my $repl = '"no_$1_stuff"';
my $text = "some_strange_thing";
$text =~ s/$match/$repl/ee;
IyEvdXNyL2Jpbi9wZXJsCm15ICRtYXRjaCA9IHFyInNvbWVfKFx3KylfdGhpbmciOwpteSAkcmVwbCA9ICcibm9fJDFfc3R1ZmYiJzsKCm15ICR0ZXh0ID0gInNvbWVfc3RyYW5nZV90aGluZyI7CiR0ZXh0ID1+IHMvJG1hdGNoLyRyZXBsL2VlOwpwcmludCAiUmVzdWx0OiAkdGV4dFxuIjs=