while (<DATA>){
   print $_ if /3$/; 
}