my @referers; my $referers; . . . if ($ENV{QUERY_STRING} ne "") { if ($ENV{'HTTP_REFERER'}) { foreach $referer (@referers) { if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$referer|i) { &begin_data_parse; } } } else { print "Data Passed Failed Source Check"; } } else { &form; }