IRSSI script to allow to switch between windows using /<number>

winswitch.pl

sub cmd_winswitch {
  my ($data, $server, $witem) = @_;
  if ($data =~ /^\/([0-9]+)$/) {
    $server->command("win " . $1);
    Irssi::signal_stop();
  }
}

Irssi::signal_add_first('send command', 'cmd_winswitch');