To make it a little more interesting:

perl -lpe'BEGIN{$r=pop} $_=/$r/?"Yes, $&":"No"' your_regex_here
[download]

Makeshifts last the longest.