(this is apparently Chinese for "text")
$ perl -e 'print -T "foo"'
1
$ perl -e 'print -B "foo"'
$