Whoops - that's a typo. It should be:

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

and the essence of it is, that it never accepts any incoming data (albeit in a roundabout way).