foreach $value (param($field)) { if($field !~ /city/) { $fetch_data .= "$field:$value\n"; } elsif($field =~ /city/) { $textareaField .= "City\:\t$value\n\n"; } } } print header, <<"EOF"; $fetch_data $textareaField

----