while(<INPUT>){
  $_=~m/msg=(.*) Src/;
  my $msg=$1;

  my @line = split /\s+/;  
  ## rest of code