Select Code to Download

if ($input =~ m/(data\x1)(\d+)\x2/) {
  print "1 = $1, length = ", length($1), "\n";
  print "2 = $2\n";
}