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