foreach (<EXP>)
{
    next unless m/\S/;
    ...
}