Help for this page
$target_name = $1 if m[( \d{5,6} ) _at: \d{3} : \d{3} ]x;
$target_name = $1 if m[( \d+ ) _at: \d+ : \d+ ]x;