my $time_zone_func =
   $file =~ /^London/
      ? \&CORE::gmtime
      : \&CORE::localtime;

strftime($date_format, $time_zone_func->(time))