sub replace {
    my($text, $pattern, $replacement, $modifiers) = @_;
    (my $result = $text) =~ s/$pattern/$replacement/$modifiers;
    return $result;
}