#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $str2 = "902 M 903 Textmessage 904 PO 905 S 906 VAS 907 10 908 3629 909 85290200429/TYPE=thanos\@test.com 910 NA 911 NA 912 NA 913 NA 914 NA 917 0 918 NA 919 Wed,_01_Feb_2017_19:56:23_GMT 922 NA 923 PO 924 NA 925 NA 926 07594d85 927 100 928 20170202035623000+08 929 20170202035623000+08 930 NA 931 85260531042/TYPE=thanos2\@test.2.com 932 1 934 258;3259 920 NA 921 NA 935 NA 936 NA 938 NA 939 NA 940 thanos-local 942 NA 944 NA 945 4880 946 NA 948 NA 950 454000000927816 953 NA 954 13 955 5.3.0 956 NA 957 07594d85 958 NA 961 13 981 NA 982 0 983 85290200429/TYPE=thanos3\@test.3.com 984 Wed,_01_Feb_2017_19:56:23_GMT 985 RegularThanos 986 TEST 987 NA 988 NA 991 NA 992 NA 993 NA 994 123456789 995 NA 996 NA 997 NA 998 NA 603 0E552E92 602 0 617 NA 618 NA 621 NA This is a test line that I want to Capture2 635 NA 636 NA 637 NA 638 NA 639 This is a test line that I want to Capture";

my (%hash)= $str2 =~/(\d{3})\s+(.+?)\s*(?=\d{3}|$)/g; 

foreach my $key ( sort {$a<=>$b}keys %hash )
{
   print "$key => \'$hash{$key}\'\n";
}


__END__
259 => '920 NA'
602 => '0'
603 => '0E'
617 => 'NA'
618 => 'NA'
621 => 'NA This is a test line that I want to Capture2'
629 => '909'
635 => 'NA'
636 => 'NA'
637 => 'NA'
638 => 'NA'
639 => 'This is a test line that I want to Capture'
789 => '995 NA'
816 => '953 NA'
880 => '946 NA'
902 => 'M'
903 => 'Textmessage'
904 => 'PO'
905 => 'S'
906 => 'VAS'
907 => '10'
908 => '3'
910 => 'NA'
911 => 'NA'
912 => 'NA'
913 => 'NA'
914 => 'NA'
917 => '0'
918 => 'NA'
919 => 'Wed,_01_Feb_'
921 => 'NA'
922 => 'NA'
923 => 'PO'
924 => 'NA'
925 => 'NA'
926 => '0'
927 => '100'
928 => '2'
929 => '2'
930 => 'NA'
931 => '8'
932 => '1'
934 => '258;'
935 => 'NA'
936 => 'NA'
938 => 'NA'
939 => 'NA'
940 => 'thanos-local'
942 => 'NA'
944 => 'NA'
945 => '4'
948 => 'NA'
950 => '4'
954 => '13'
955 => '5.3.0'
956 => 'NA'
957 => '0'
958 => 'NA'
961 => '13'
981 => 'NA'
982 => '0'
983 => '8'
984 => 'Wed,_01_Feb_'
985 => 'RegularThanos'
986 => 'TEST'
987 => 'NA'
988 => 'NA'
991 => 'NA'
992 => 'NA'
993 => 'NA'
994 => '1'
996 => 'NA'
997 => 'NA'
998 => 'NA'