And of course, if you're strictly dealing with numerical data, you don't necessarily have to mess around with a regex -- you might be able to select the numbers you want based on a mathematical rule, as in this (untested) snippet:

  while (<DATA>) {
    my $tag = $_;
    if (($tag % 10) < 3) {
      print "$tag\n";
    }
  }
[download]