Select Code to Download

#!/usr/bin/perl
use warnings;
...
    my @numbers = $string =~ /-([0-9]+)/g;
    say "@numbers";
}