$value = s/$search/$replace/;

##</code><code>##

m/$search/;
print $1;

##</code><code>##

my $search = qr/No\s+(\d)$/;
my $replace = 'No 0$1';
$title =~ s/$search/$replace/;