my $pattern = defined $options{pattern} ? qr{$options{pattern}} : $default_pattern;
my $replacement = defined $options{replacement} ? $options{replacement} : $default_replacement;
$text =~ s/$pattern/$replacement/;