500
501
502
503
504
508
522
531
532
505

##</code><code>##

while (<DATA>){
	  chomp;
	  $tag = $_;
	  #if ($tag =~ /50[0-2]/ || $tag =~ /5[30-33]/){
	  if ($tag =~ /50[0-2]|5[30-33]/){
	  	 print "$tag\n";
	  }
}
									
__DATA__
500
501
502
503
504
508
522
531
532
547
548
555									
444
505