\n\n"; chop($post = <>); @lines = split(/\&/, $post); foreach(@lines) { @kv = split(/=/); $key = &unescape(@kv[0]); $value = &unescape(@kv[1]); if ($key eq "name") { $message .= "Name -- $value
\n\n"; next; } if ($key eq "address") { $message .= "Address -- $value
\n\n"; next; } if ($key eq "ph-number") { $message .= "Area Code and Phone Number -- $value
\n\n"; next; } if ($key eq "e-name") { $message .= "E-Mail Address -- $value
\n\n"; next; } if ($key eq "price") { $message .= "In what price range are you looking? -- $value
\n\n"; next; } if ($key eq "area") { $message .= "In what area (West Lafayette, Lafayette, Tippecanoe county, other) would you like to find a home? -- $value
\n\n"; next; } if ($key eq "frame") { $message .= "What is your time frame for looking at and purchasing a home? -- $value
\n\n"; next; } if ($key eq "bedrooms") { $message .= "How many bedrooms would you prefer? -- $value
\n\n"; next; } if ($key eq "footage") { $message .= "Approximately how much square footage would you prefer? -- $value
\n\n"; next; } if ($key eq "special") { $message .= "Are there any special considerations you would like (for example, finished basement, 1-story home, sun room)? -- $value
\n\n"; next; } } print "$message\n"; print "\n\n"; print "\n\n"; exit; sub unescape { local($_) = @_[0]; s/\+/ /g; s/%([\da-f]{1,2})/pack(C,hex($1))/eig; $_; }