#!/usr/bin/perl
$|=1;
while (<>){
      s@http://www.gcn.net.tw@http://www2.gcn.net.tw@;
      s@http://accel.gcn.net.tw@http://www.hinet.net@;
      print;
}

