split filename into word and numeric part

diff --git a/public/code/IME FILE-a.file_nr,file_text.pl b/public/code/IME FILE-a.file_nr,file_text.pl
new file mode 100644 (file)
index 0000000..9caa48c
--- /dev/null
+++ b/public/code/IME FILE-a.file_nr,file_text.pl
@@ -0,0 +1,6 @@
+map {
+# warn dump $_;
+ ( $update->{file_text}, $update->{file_nr} ) = ( $1, $2 ) if m/^(\d+)(\w+)$/;
+} @{ $row->{'IME FILE-a'} };
+ 
+