open(FMT, "./formats/$filters_file") || die "Can't open $filters_file.\n"; while() { chomp; next if /^\*/; #comments line $var_name = substr($_,2,5); $var = substr($_,53); $var =~ s/\s+$//g; $var_name =~ s/(\$)|(\s+$)//g; if ( exists $filters{$var_name} ) { push @{ $filters{$var_name} }, $var; } else { $filters{$var_name} = [ $var ]; } } close FMT; return %filters;