18c18
< my ($recurse, $name, $case,$linenums,$quick_start) =(0,0,0,0,0);
---
> my ($recurse, $name, $case,$linenums,$quick_start, $use_regex) =(0,0,0,0,0);
21a22
> if( grep{/\bR\b/} @ARGV ){@ARGV = grep { $_ ne 'R' } @ARGV; $use_regex = 1 };
64a66
> my $vboxC3 = Gtk2::VBox->new();
83a86,91
> my $checkbutton5 = Gtk2::CheckButton->new('Use RegEx');
> $checkbutton5->signal_connect( clicked =>
>              sub{check_button_callback($checkbutton5, \$use_regex , 'use_regex')});
> $vboxC2->pack_start( $checkbutton5, 0, 0, 0 );
>
> if($case){$checkbutton5->set_active(1);}
87c95
< $vboxC2->pack_start( $checkbutton4, 0, 0, 0 );
---
> $vboxC3->pack_start( $checkbutton4, 0, 0, 0 );
91a100
> $hboxt->pack_start( $vboxC3, 0, 0, 0 );
284,285c293,307
< if ($case){$regex =  qr/\Q$search_str\E/}
<       else{$regex =  qr/\Q$search_str\E/i}
---
> if ($case){
>   if ($use_regex) {
>     $regex =  qr/$search_str/;
>   }
>   else {
>       $regex =  qr/\Q$search_str\E/}
> }
> else {
>   if ($use_regex) {
>     $regex =  qr/$search_str/i;
>   }
>   else {
>       $regex =  qr/\Q$search_str\E/i;
>   }
> }