$links1 =~ /<\s*a\s*(href\s*=\s*".*?").*>/is and $links1 = $1;