remove trailing whitespaces

bmp.pl

@@ -43,9 +43,9 @@
 say `file       $outfile`   if -f '/usr/bin/file';
 say `hexdump -C $outfile`   if -f '/usr/bin/hexdump';
 
-# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #   
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 #                                Subroutines                                  #
-# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #   
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 
 sub usage {
     say <<"EOF";
@@ -80,7 +80,7 @@ sub inject_payload {
 
     syswrite   $fh, "\x2f\x2a";
     sysseek    $fh, 0, SEEK_END;
-    
+
     syswrite   $fh, "\x2a\x2f\x3d\x31\x3b";
     syswrite   $fh, $payload;
     syswrite   $fh, "\x3b";

gif.pl

@@ -44,9 +44,9 @@
 say `file       $outfile`   if -f '/usr/bin/file';
 say `hexdump -C $outfile`   if -f '/usr/bin/hexdump';
 
-# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #   
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 #                                Subroutines                                  #
-# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #   
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 
 sub usage {
     say <<"EOF";

jpg.pl

@@ -57,9 +57,9 @@
 say `file       $outfile`   if -f '/usr/bin/file';
 say `hexdump -C $outfile`   if -f '/usr/bin/hexdump';
 
-# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #   
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 #                                Subroutines                                  #
-# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #   
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 
 sub usage {
     say <<"EOF";
@@ -123,7 +123,7 @@ sub inject_payload_to_comm {
 
     $exifTool->WriteInfo($outfile)
         or die "[✘] Fail to WriteInfo\n";
-    
+
     say "[✔] Payload was injected successfully\n";
 }
 

png.pl

@@ -50,9 +50,9 @@
 say `file       $outfile`   if -f '/usr/bin/file';
 say `hexdump -C $outfile`   if -f '/usr/bin/hexdump';
 
-# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #   
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 #                                Subroutines                                  #
-# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #   
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 
 sub systell {
     sysseek $_[0], 0, SEEK_CUR
@@ -118,8 +118,8 @@ sub inject_payload {
         sysread $fh, $chunk_type, 4;
 
         $chunk_size = unpack('I>', $chunk_size);
-        
-        say "[+] Chunk size: $chunk_size"; 
+
+        say "[+] Chunk size: $chunk_size";
         say "[+] Chunk type: $chunk_type";
 
         return if $chunk_type eq 'IEND';

webp.pl

@@ -43,9 +43,9 @@
 say `file       $outfile`   if -f '/usr/bin/file';
 say `hexdump -C $outfile`   if -f '/usr/bin/hexdump';
 
-# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #   
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 #                                Subroutines                                  #
-# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #   
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
 
 sub usage {
     say <<"EOF";
@@ -55,7 +55,7 @@ sub usage {
 webp image.  Only the new (minimal) webp image will be created and your
 payload will be injected into.
 
-If the -output argument file exists, the payload will be injected into 
+If the -output argument file exists, the payload will be injected into
 the existing image, but this image will be corrupted.
 EOF
     exit +shift;