perl -ln -e 'print lc($1) if m|^\s*param\s+=[\s\x27]*([A-Za-z0-9,]+)|i' testfile