Select Code to Download

sub ucase {
    local($s1) = @_;
    $s1 =~ tr/[a-z]/[A-Z}/;
 return $s1;
}

$chk =~ /(.*@.*\.[a-zA-Z]{2,3}$)/ && $chk !~ /(^\.)|(\.$)|( )|(\.\.)|(
+@\.)|(\.@)|(@.*@)/

sub readem {
        local $insFile = shift; local $back = "";
...
    close(FL);    } else {&showErr('Fatal File Read Error');}
    return $back;
}

    @pairs = split(/&/, $query_string);
    foreach $pair (@pairs) {
...
        $name =~ s/(`|\0|\\)//g;
    $FORM{$name} = $value;
    }

sub date_time {
    my($s1) = @_;
...
    elsif ($year > 38) { $year = "19$year" }
   return ($mon,$year);
}

$datetime = &date_time(&date_time(0));