#!/usr/bin/perl -w $pat = ''; # construct word list while () { chomp; next unless $_; $pat .= "$_|"; } chop $pat if $pat =~ /\|$/; # grep while (<>) { print "$ARGV\:$.\:$_" if s/\b($pat)\b/#$1#/og; # this variant might useful if the transformation is more complicated # if (/^(.*?)\b($pat)\b(.*)$/o) { # my $head = "$1#$2#"; # $_ = $3; # while (/^(.*?)\b($pat)\b(.*)$/o) { # $head .= "$1#$2#"; # $_ = $3; # } # print "$ARGV\:$.\:$head$_\n"; # } } continue { close ARGV if eof; } __END__ Argv Cmd DBcv DBgv DBline DBsignal DBsingle DBsub DBtrace No Sv Xpv Yes amagic_generation ampergv an archpat_auto argvgv argvoutgv av_fetch_sv basetime beginav bodytarget bostr bufend bufptr cddir chopset collation_ix collation_name collation_standard collxfrm_base collxfrm_mult colors colorset compcv compiling comppad comppad_name comppad_name_fill comppad_name_floor cop_seqmax copline cryptseen cshlen cshname curcop curcopdb curinterp curpad curpm curstack curstackinfo curstash curstname curthr dbargs debdelim debname debstash debug defgv defoutgv defstash delaymagic diehook dirty dlevel dlmax do_undump doextract doswitches dowarn dumplvl e_script egid endav envgv errgv error_count euid eval_cond eval_mutex eval_owner eval_root eval_start evalseq exitlist exitlistlen expect extralen fdpid filemode firstgv forkprocess formfeed formtarget generation gensym gid globalstash he_root hexdigit hintgv hints hv_fetch_ent_mh hv_fetch_sv in_clean_all in_clean_objs in_eval in_my in_my_stash incgv initav inplace last_in_gv last_lop last_lop_op last_proto last_uni lastfd lastgotoprobe lastscream lastsize lastspbase laststatval laststype leftgv lex_brackets lex_brackstack lex_casemods lex_casestack lex_defer lex_dojoin lex_expect lex_fakebrack lex_formbrack lex_inpat lex_inwhat lex_op lex_repl lex_starts lex_state lex_stuff lineary linestart linestr localizing localpatches main_cv main_root main_start mainstack malloc_mutex markstack markstack_max markstack_ptr max_intro_pending maxo maxscream maxsysfd mess_sv min_intro_pending minus_F minus_a minus_c minus_l minus_n minus_p modcount modglobal multi_close multi_end multi_open multi_start multiline mystrk na nexttoke nexttype nextval nice_chunk nice_chunk_size ninterps nomemok nthreads nthreads_cond numeric_local numeric_name numeric_standard ofmt ofs ofslen oldbufptr oldlastpm oldname oldoldbufptr op op_mask op_seqmax opsave origalen origargc origargv origenviron origfilename ors orslen osname pad_reset_pending padix padix_floor patchlevel patleave pending_ident perl_destruct_level perldb pidstatus preambleav preambled preprocess profiledata reg_eval_set reg_flags reg_start_tmp reg_start_tmpl regbol regcc regcode regcomp_parse regcomp_rx regcompp regdata regdummy regendp regeol regexecp regflags regindent reginput reginterp_cnt reglastparen regnarrate regnaughty regnpar regprecomp regprev regprogram regsawback regseen regsize regstartp regtill regxend replgv restartop retstack retstack_ix retstack_max rightgv rs rsfp rsfp_filters runops savestack savestack_ix savestack_max sawampersand sawstudy sawvec scopestack scopestack_ix scopestack_max screamfirst screamnext secondgv seen_evals seen_zerolen sh_path siggv sighandlerp sortcop sortcxix sortstash specialsv_list splitstr stack_base stack_max stack_sp start_env statbuf statcache statgv statname statusvalue statusvalue_vms stdingv strchop strtab sub_generation sublex_info subline subname sv_arenaroot sv_count sv_mutex sv_no sv_objcount sv_root sv_undef sv_yes svref_mutex sys_intern tainted tainting thisexpr thr_key threadnum threads_mutex threadsv_names thrsv timesbuf tmps_floor tmps_ix tmps_max tmps_stack tokenbuf top_env toptarget uid unsafe warnhook xiv_arenaroot xiv_root xnv_root xpv_root xrv_root piMem piENV piStdIO piLIO piDir piSock piProc