while (<>) { chomp; s!\s*/\s*!}{!g; eval "\$h\{$_\} = 1;"; }