my $regexp = undef;
my $entered_text = $regexp_entry -> get();

if ($entered_text =~ m!^qr/!){
   # User has passed a "qr//" type regex:
   $regexp = eval $entered_text;
}
else{
   # User has passed a straight regular expression
   $regexp = m/$entered_text/;
}