#!/usr/bin/perl -w
#this file is for grepping within vdx files, and outputs the following:
#filename:<#of hits>:<arguments>
#filename:2:myargument
open ARGUMENTS, "<","file";
@files = <*.vdx>;
@arguments = <ARGUMENTS>;
foreach $file (@files) {
    foreach $argument (@arguments) {
    chomp $argument;
    `grep -c -H $argument \"$file\"`;
    chomp $results;
    print "$results:$arguments\n";
    }
}

##</code><code>##

hello
goodbye