use feature ":5.10";
$val=" ";
given($val) { 
   when (" ") { 
     print "space"}
   when (0) {
     print "zero"}
   default {
     print "other"
   }
}