perl -pi -e "s/searchpattern/replacepattern/ if $. % 3 == 0" filename