Select Code to Download

my $data = 'blabla;tag1=12345;blabla;tag2=99999';

...
  = $data =~ /tag1=(\d+).*?tag2=(\d+)/ if $1 && $2;

print "$tag1, $tag2";