new version of tv renaming

diff --git a/bin/renametv.pl b/bin/renametv.pl
index 7fcbf21c16013bee65f2dfc388fe68a10b69cc2d..6a62dd014fcd0042c6a2f6a0301bb9cb9e8f81cf 100755 (executable)
--- a/bin/renametv.pl
+++ b/bin/renametv.pl
@@ -13,7 +13,8 @@ my $somethingtodo = 0;
 my @usualsuspects = qw/
     xvid xor ffndvd repack preair aaf 720p x264 dimension dvdrip
     hdtv 0tv fqm 2hd notv ws pdtv lol vtv xii dvdscr sys fov dot
-    vostfr p0w4 fihtv kfv
+    vostfr p0w4 caph fihtv flatline brrip ac3 flawl3ss asap
+    proper bufu notyou kfv immerse
 /;
 
 GetOptions(
@@ -59,7 +60,6 @@ print "do you want to continue? [Y/n]";
 my $answer = <STDIN>;
 
 chomp $answer;
-
 if ($answer eq 'Y' || $answer eq 'y' || $answer eq '') {
     print 'Moving ...';
     foreach my $key (keys %$filenames) {