Select Code to Download

# disclaimer - assume use strict and warnings are both in effect, and 
# variables are lexically named elsewhere..  this is a toss off bit o'
+ code
...
    }
  
  }

my $x = <STDIN>;
chomp $x;
$x = uc($x);
my $regex = join('[^A-Z]*', split //, $x);