Someone

        my $to = $permsgstatus->get('Received');
        $to =~ /for (\S+\@\S+);/;
        my $received = $1;
        $received = lc($received);
        $received = $self->stripUser($received);
        my $cmd = "bogofilter -d /var/lib/bogofilter/$received -v < $tmpfile";
.
.
.
.
.
sub stripUser {
    my $self  = shift;
    my $email = shift;
    $email =~ /([A-Za-z\-\_]+?)\@/;
    return $1;
}