String Extraction

Shell Programming and Scripting
1

I am trying to extract a time from the below string in perl but not able to get the time properly

I just want to extract the time from the above line I am using the below syntax

x=~ /(.*) (\d+)\:(\d+)\:(\d+),(.*)\.com/
      $time = $2 . ':' . $3 . ':' . $4;
      print $time

Can some1 please help and let me know what I am missing from above code

2
Moderator comments were removed during original forum migration.