my $file = "textfile.020701_00:08";
my $time = substr($file, 9,12);
$time =~ s/(\d{6})(\d{1})(\d{2})(\d{1})(\d{2})/"$1$3$5.monday"/;

print "TIME: $time"