while (<INFILE>) {
    my @Elements = split(/;/,$_);
    
    if ($Elements[1] =~ /\S/){  # if second arg contains non-whitespace
        print OUTFILE;   # ("$_" is implied here)
    }
}