--- a/deb2targz 2023-08-07 19:03:44.785167368 +0200
+++ b/deb2targz 2023-08-07 18:55:24.580476467 +0200
@@ -47,7 +47,7 @@
        ($header, $data) = ($data =~ /(.*?)\n(.*)/s);
        my($name, $num1, $num2, $num3, $num4, $len) = split /\s+/, $header;
        #print "header='$header'\n\tname='$name', len=$len\n";
-       if ($name =~ /^data\.tar(.*)$/) {
+       if ($name =~ /^data\.tar(.[^\/]*)\/*$/) {
            # Found it
            my $ext = $1;
            $data = substr($data, 0, $len);