Select Code to Download

my $string = "abe[123955785ada]sdjdjajd";
if ( $string =~ /\[(.*?)\]/ )
...
    my $inside = $1;
    print $inside, "\n";
}

    "aslkj[2099asgjskjw]asljgn[awoeiwj]"

    2099asgjskjw]asljgn[awoeiwj