It works for me, do you have shell quoting problems?

$ perl -e'my $dev = "/dev";if (-e $dev and -d _) {print $dev," directo
+ry exists.",$/}'
/dev directory exists.
$
[download]