Select Code to Download

$ ls /tmp/11106920/

123456.tif    123_456.tif    666_666.jpeg    678_910.tif

$ perl -Mstrict -MPath::Tiny -wE 'path("/tmp/11106920")->visit( sub { 
+say $_->basename(".tif") if /[0-9]+_[0-9]+\.tif/ } );'

678_910
123_456