Filter/Simple/FilterOnlyTest.pm

package FilterOnlyTest;

use Filter::Simple;

FILTER_ONLY
    string => sub {
        my $class = shift;
        while (my($pat, $str) = splice @_, 0, 2) {
            s/$pat/$str/g;
        }
    };