# Foo.pm
package Foo;
use Filter::Util::Call ();
1;

sub import {
    Filter::Util::Call::filter_add( sub {
        my $status;
        if (($status = Filter::Util::Call::filter_read()) > 0) {
            s#("[^"]+")#\U$1\E#g;
        }
        $status;
    } );
} #import