jdporter suggested:


use strict; 
my $method = "rewrite_$2"; 
$_ = $self->$method($1) . "\n";