(?:[\w.\/]+\:)?

##</code><code>##

use Net::Telnet::Cisco;

...

my $session = Net::Telnet::Cisco->new(
  ...
    -prompt => '/(?m:^(?:[\w.\/]+\:)?[\w.-]+\s?(?:\(config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$)/'
  ...
)