perl -l -n -e "/address=(.*)/ and print \$1;" yourfile.txt > emails.txt #### /\s*address=(.*)/