use strict;
my $method = "rewrite_$2";

if ($self->can($method)) {
    $self->$method($1);
} else {
    warn "$self does not have $method";
}