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