perl -lne 'print lc($1) if (s/[\s\x27]//gr) =~ m/\s*param\s*=\s*([\w,]+)/i' testfile