my $filename = '/tmp/somefile.html';
my $find = quotemeta "<option SELECTED>[ Current time range ]";

my $replace = '<option SELECTED> Current time';
{
   local @ARGV = ($filename);
   local $^I = '.bac';
   while( <> ){
      if( s/$find/$replace/ig ) {
         print;
      }
      else {
         print;
      }
   }
}

##</code><code>##

my $filename = '/tmp/somefile.html';
my $find = quotemeta "<option SELECTED>[ Current time range ]";

my $replace = '<option SELECTED> Current time';
{
   local @ARGV = ($filename);
   local $^I = '.bac';
   while( <> ){
      s/$find/$replace/ig;
      print;
   }
}