D:\_scratch>perl -e "my $foo=''; if ($foo =~//){ print 'found nothing';} exit();" found nothing D:\_scratch>