use strict; use warnings; while(){ chomp; print $_,$/ if /\d{2}$/; } __DATA__ PHY/99/3006 PHY/99/3009 PHY/99/2678 PHY/99/390O PHY/99/129R PHY/99/UY90