in reply to Regular expressions in shell prompts

The argument for prompt in the constructor of Net::Telnet in fact is a regular expression. So the task at hand here is to craft a valid regular expression for all 900 routers. If you are having problems with that, feel free to ask.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'