Select Code to Download

if (...) {
   if (...) {
...
} else {
    return 0;
}

    ($msg =~ /^([^\s]+)/) or return 0;
    $alias = $1;
...

    ($msg =~ /-auto_connect="([^"]+)"/) or return 0;
    $auto_connect = $1;

   # Regular expressions to apply
   my $a_regexes = [
...
   # Assign to the desired variables
   my ($alias, $address, $port, $nick,
       $password, $prefix, $auto_connect) = @results;

   # Define the tokens we wish to extract
   my @tokens = qw( address port nick password prefix auto_connect );
...

   # Assign to the desired variables
   my ($address, $port, $nick, $password, $prefix, $auto_connect) = @r
+esults;