my $time_zone_func =
   $file =~ /^London/
      ? sub { gmtime($_[0]) }
      : sub { localtime($_[0]) };

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