$ perl -le 'print "yoo" if 1 + 1 =~ /3/'
yoo