/name="id" value="[A-Za-z0-9]*" size=/
##</code><code>##

for (qw(id param1 param2 sessId) {
  $response_data =~ /name="$_" value="([A-Za-z0-9]*)" size=/;
  $v[$_] = $1;
}