diff --git a/prova.pl b/prova.pl
deleted file mode 100755
index 08f3fd2..0000000
--- a/prova.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl
-use warnings;
-use strict;
-my $string= "20180418103606_G201_ID1111_DT2222.csv";
-my @strings = $string =~ /(.{1,4})(.{1,2})(.{1,2})(.{1,2})(.{1,2})(.{1,2})_(.{1,4})_(.{1,6})_(.{1,6}).*/;
-foreach(@strings) {
-    print "$_\n";
-}
-
-
- my   $fileDate = $strings[0] . "/" . $strings[1] . "/" . $strings[2];;
-   my $fileTime = $strings[3] . ":" . $strings[4] . ":" . $strings[5];
-    my $unittype = $strings[6];
-    my $unit = $strings[7];
-
-    print $fileDate . "\n";
-        print $fileTime . "\n";
-            print $unittype . "\n";
-                print $unit . "\n";
\ No newline at end of file