if ($x = y) {
}
if ($x ~ ^y) {
}
if ($x ~* ^y) {
}
if ($x !~* ^y) {
}
if ($x !~ ^y) {
}
if (-d $x) {
}
if (!-d $x) {
}
if (-f $x) {
}
if (!-f $x) {
}
if (-e $x) {
}
if (!-e $x) {
}
if (-x $x) {
}
if (!-x $x) {
}
if ($x ~* ^/somepath$) {
}