Bind the string to the operation using =~ (see perlop):

$blah2 =~ s/\w+//;
[download]

Update: Note this doesn't prevent you from doing this:

my ($word) = $string =~ /(\W+)/;
[download]

But you should be careful about maintainability. This trick appears to only work with the m// construct in list context.