You can separate a variable name from following alphanumerics using curly brackets, a la:

#!/usr/bin/perl
use strict;
use warnings;

$_ = q{some search criteria};
s/(s)(o)(m)(e)( )search criteria/$1$2${3}2010$4$5/g;
print;
[download]

See Regexp Quote Like Operators for details on regular expression interpolation.