for ($a=0; $a<3; $a++)
{
         $line[$count] =~ s/(href\s*=\s*(["'])[^"'#]*?#[^"']*?)\2(.*\2\s*>)/$1$3/isgc;
}