while (<>) { printf("line %2d: %s", $., $_); $res = $1 if /^Referer: (.*)$/; }