while (<filea>) {
    if ( this is a line i want ) {
        s/[\015\012]+$//; # Just to remove any CR/LF
        my($router,$site)= split /,/,$_,3;
        $replace{$router}= $site;
    }
}
my $replacements= '\b('.join('|',keys %router).')\b';