perl -lpe'BEGIN{$r=pop} $_=/$r/?"Yes":"No"' your_regex_here [download]
perl -lpe"BEGIN{$r=pop} $_=/$r/?'Yes':'No'" your_regex_here [download]
In reply to Interactively Test Regexes by kelan