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

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