perl -e 'open(F,"test_file_1_200008261030");$date = (stat(F))[9];@date = (eval((gmtime($date))[3,4,5]));print "@date\n"'

26 7 100