my $time_zone_func = ( $file =~ /^London/ ) ?
    sub { gmtime shift } : sub { localtime shift };