{
  no warnings 'uninitialized';
  print $op if $op =~ /\S/;
}

##</code><code>##

for ($op) {
  print if defined && /\S/;
}