# Address: 100.64.52.98 Time Fri Jan 16 21:44:35 2015 End 
# ........ ............ .... ... ... .. ..:..:.. .... ... 
# Address: ............ Time ... ... .. ..:..:.. .... ... 

         my( $stuff,           $fri, $jan, $day, $hour, $min, $sec, $year, $end )
= 
m{Address: (............) Time (...) (...) (..) (..):(..):(..) (....) (...)}ms;