Select Code to Download

my $regexp = undef;
my $entered_text = $regexp_entry -> get();
...
   # User has passed a straight regular expression
   $regexp = m/$entered_text/;
}