if (my $num = /\[/.../\]/)