Help for this page
#!/usr/bin/perl -slw ... print "'$t'"; print "'$t'"; print "length: ",length($t);