if ($string =~ m# (\w+) @ (\d+) @ [^@] @ (\d{2}/\d{2}/\d{2}) #x) {
    # tu was
}