my ($alpha, $beta, $gamma, $delta, $epsilon, $zeta) = $s =~ /.../
    or die("No match\n");