$ perl -nle 'print /(id\s+\S+).*?(\sname\s+\S+)/' pm_1202330_input.txt id “ABS0056”; name “SAM”; id “ABS0059”; name “JOE”; id “ABS0060”; name “MARY”; id “ABS0057”; name “BILL”; id “ABS0065”; name “RONIE”; id “ABS0061”; name “STEPHAN”;