winperl.pl

use strict;
use warnings;
use Time::HiRes;

my $a = 0;
my $i;
my $start = Time::HiRes::gettimeofday();

open(my $FILE, "<master2") or die "Cannot open ";

while (my $line = readline $FILE) { # foreach$B%+%C%3(B
        $line =~ s/http/firo/g;
}

close $FILE;

my $end = Time::HiRes::gettimeofday();
print $end - $start, "[s]";