#/bin/perl/

use strict;
use warnings;

my $txt = "txt";

 my @files;

 @files = `ls *$txt`;
 
 my $filename;

 my $seq;
 my $nr;
 my $mol;
 my $dir;
 my $step;
 my $type;

 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";
 
 $seq= $3;
 $nr = $5;
 $mol = $7;
 $dir = $9;
 $step = $11;
 $type = $13;
 
     print `mkdir -p ~/folder1/$mol/$dir`;

     }