open FILE, "<", "XYZ.txt" or die $!;
my @actionData = ();
my $i = 0;
while (my $line = <FILE>)
{
  if ( $line =~ /action/ ) 
  {
    push(@actionData, (split (/^\d+/, $line)));
    $i++;
  }
}


##</code><code>##

 
[AHB_REPORTER][INFO]: action(62,1,0,0,0,0,5,53,9,0,190)D:/XYZ/reg/Tests/Mcu/A_test.cCALL: (null) 

##</code><code>##

 
a => 62
b => 1
c => 5
d => 53