use warnings; use strict; my $data = '%CATD_I_060, SNMPTRAP: -c public 954 165.148.211.199 wblvh001.telkom.co.za 6 10 00:00:00 16 OID: 1.3.6.1.4.1.954.1.1.1.1.1.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.1.7557342 VALUE: I OID: 1.3.6.1.4.1.954.1.1.1.1.2.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.2.7557342 VALUE: 7557342 OID: 1.3.6.1.4.1.954.1.1.1.1.3.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.3.7557342 VALUE: tcenshpat1 OID: 1.3.6.1.4.1.954.1.1.1.1.4.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.4.7557342 VALUE: TEST_FILE_NAME OID: 1.3.6.1.4.1.954.1.1.1.1.5.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.5.7557342 VALUE: 3030303036 OID: 1.3.6.1.4.1.954.1.1.1.1.6.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.6.7557342 VALUE: V OID: 1.3.6.1.4.1.954.1.1.1.1.7.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.7.7557342 VALUE: Not_Noticed OID: 1.3.6.1.4.1.954.1.1.1.1.8.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.8.7557342 VALUE: 3230303630393130323335353132 OID: 1.3.6.1.4.1.954.1.1.1.1.9.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.9.7557342 VALUE: OID: 1.3.6.1.4.1.954.1.1.1.1.10.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.10.7557342 VALUE: OID: 1.3.6.1.4.1.954.1.1.1.1.11.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.11.7557342 VALUE: CTMERRJOBNAMECTMERRTest job for unicenter OID: 1.3.6.1.4.1.954.1.1.1.1.12.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.12.7557342 VALUE: OID: 1.3.6.1.4.1.954.1.1.1.1.13.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.13.7557342 VALUE: TEST_GROUP OID: 1.3.6.1.4.1.954.1.1.1.1.14.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.14.7557342 VALUE: TEST_APPLICATION OID: 1.3.6.1.4.1.954.1.1.1.1.15.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.15.7557342 VALUE: TEST_JOB_NAME OID: 1.3.6.1.4.1.954.1.1.1.1.16.7557342 .iso.org.dod.internet.private.enterprises.954.1.1.1.1.16.7557342 VALUE: tcenshpat1'; my @matches = $data =~ m/VALUE: (.+?) OID/g; print "$_\n" for @matches;