use 5.010;
my $pattern     = $options{pattern}     // $default_pattern;
my $replacement = $options{replacement} // $default_replacement;
$text =~ s/$pattern/$replacement/;