Select Code to Download

# This works

...
my $end_of_path = $1 if $path =~ m/([^\/]+$)/;

my @nums = $end_of_path =~ m/([0-9]{2,4})/g;

# This does not work
my @nums = m/([0-9]+)/g =~ $1 if $path =~ m/([^\/]+$)/;