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