$linkheader = $response1=~m/Link/; print "$linkheader\n";