# main.pl

# all this is just a template that creates "run.pl"
use strict;
use warnings;

while(<DATA>){	
	print $_ if s/search_here/replace_here/gi;
}

__DATA__
(123),(456),(789)
(abc),(def),(ghi)