foreach (@files) { 
 /(prefix)(_)(\d+)(_)(\d+)(_)(\w+)(_)(\w+)(_)(\w+)(\.)(\w+)/;
 $filename = "$1$2$3$4$5$6$7$8$9$10$11$12$13";
 print "name of file: $filename \n";
 print "\n";<c>