Mine

sub load_conf {
open (FILE, $fileconf) or die "Can't open $fileconf, $!";
my @data=<FILE>;
close(FILE);
  foreach my $conf (@data) {
  next if $conf !~ /^set/;
  $conf =~ s/^set //g;
  my ($param, $setted) = split(/: /, $conf);
    switch($param) { 
      case 'nickname'    { $nickname = $setted; }
      case 'ircserv'   { $ircserv = $setted; } 
      case 'port'        { $port = $setted; }
      case 'ircname'     { $ircname = $setted; }
      case 'username'    { $username = $setted; } 
     case 'channels'    { my @channels = map {split ','} $setted; }
    }

  }

}