switch ($val) {
case /^\s*(\S+)$/{
print "$1\n";
}