#!/usr/bin/perl

open (file, "petpages");
open NEW, ">", "petpages.new" or die $!;
while ($lines = <file>) {
$lines =~ tr/A-Z/a-z/;
print NEW $lines;
}
close (file);
exec("rm petpages ; mv petpages.new petpages");
open (file2, "petpages");
open NEW, ">", "petpages.new" or die $!;
while ($lines = <file2>) {
print NEW "http://" . $lines;
}
close (file2);
exec("rm petpages ; mv petpages.new petpages");