$ perl -v
This is perl, v5.8.8
$ cat foo

##</code><code>##

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