perl -e "print join(qq(\n),('+','\\+','\\\\+','\\\\\\+')),qq(\n)"

# or, more concisely

perl -le "print $_ for qw/+ \\+ \\\\+ \\\\\\+ \\\\\\\\+/"