Help for this page
#!/usr/bin/perl ... my @nums = $path =~ m/([0-9]{2,4})(?!.*\/)/g; print "@nums\n";
2021 03 04 21 20