How do I use perl regex to extract the digit value from '[1]'?

Question

My code...

$option = "[1]";
if ($option =~ m/^\[\d\]$/) {print "Activated!"; $str=$1;}

I need a way to drop off the square brackets from $option. $str = $1 does not work for some reason. Please advise.

Answer 1

To get $1 to work you need to capture the value inside the brackets using parentheses, i.e:

if ($option =~ m/^\[(\d)\]$/) {print "Activated!"; $str=$1;}