Of course one could push it further and make the xterm title display the current path. Actually this is no perl code but I really don't see the need for perl here.

# The Prompt
unset PROMPT_COMMAND
case $TERM in
    xterm*)
        TITLEBAR='\[\033]0;\h:\w\007\]'
        ;;
    *)
        TITLEBAR=''
        ;;
esac
PS1="${TITLEBAR}\u@\[\033[1;34m\]\h\[\033[0m\]:\W> "
export PS1 PS2
[download]

(to put into your ~/.bashrc - yeah, we're really OT here ;-)

Regards...	Stefan
you begin bashing the string with a +42 regexp of confusion