Help for this page
{ no warnings 'uninitialized'; print $op if $op =~ /\S/; }
for ($op) { print if defined && /\S/; }