Select Code to Download

#!/usr/bin/perl -w
...

        <0>   Class: [1] NetElementObjectClass                Instance
+: (int) [2]
        <1>   Class: [ 57 ] Vc3TtpSnkObjectClass                Instan
+ce: (int) [14]

        my @numbers = $file_content =~ /\[\s*(\d+)\s*\]/g;