use strict;
use warnings;
use Data::Dumper;

my $path = '/.snapshots123/yabsm/root/hourly/day=2021_03_04,time=21:20';

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

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

##</code><code>##

$VAR1 = [
          '2021',
          '03',
          '04',
          '21',
          '20'
        ];

##</code><code>##

use strict;
use warnings;
use Data::Dumper;

my $path = '/.snapshots123/yabsm/root/hourly/day=2021_03_04,time=21:20';

my @nums = $path =~ m{/day=(\d\d\d\d)_(\d\d)_(\d\d),time=(\d\d):(\d\d)$};
print Dumper( \@nums );