Select Code to Download

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

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