Select Code to Download

$data =~ /tag2=(\d+)/;
$tag2 = $1 if $1;

$tag1 = $1 if $data =~ /tag1=(\d+)/;
$tag2 = $1 if $data =~ /tag2=(\d+)/;