my $infile = "/export/install/users.txt";
open my $IN, "<", $infile or die "Cannot open $infile $!";
my @lines = <$IN>;
if (grep /($FORM{user}|$FORM{pin})/i, @lines) {
    # ...
}