($foo) = ($val =~ /^(?!.).$/);