# assuming @stoplist
my %stop;
@stop{ @stoplist } = @stoplist;

s/(\w+)/ 
         ( $stop{$1} || ! defined $self->{$1}{val} ) ? 
           $1 : 
           $self->{$1}{val} 
       /ge;