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

That's an awful lot of vars, though. It seems an array would be better.

Update: Missed that you were using s///. Capturing and replacing at the same time seems rather odd. What are you doing?