in reply to More than one way to do it???

Just came up with, should perl I say, version .02, though i think it's getting a little "$obfuscated" already, let me know:  perl -we '$tty=qx(tty);$tty=~s/^\W\w+\W//;print $tty'

In Section Seekers of Perl Wisdom