./print_list | perl -i -ne 's/\Q$_\E/foo/g' file.txt