#usr/bin/perl

use strict;
use warnings;

open IN,'<',"part2.txt";
open OUT,'>',"airport_fahrenheit.txt";

my $x;
my $fahrenheit1 = (9 *{$1}/5) + 32;
my $fahrenheit2 = (9 *{$2}/5) + 32;
foreach $x (<IN>){
  ( $x =~ s/(\d\d)\/(\d\d)/$fahrenheit1\/$fahrenheit2/g );
  print OUT "$x";
}
close IN;
close OUT;