Select Code to Download

Use of uninitialized value $_ in pattern match (m//) at fluff.pl line 
+26, <IN> line 9.
Argument "1 1 1" isn't numeric in numeric ne (!=) at fluff.pl line 26,
+ <IN> line 9.
Use of uninitialized value $_ in pattern match (m//) at fluff.pl line 
+26, <IN> line 9.
...
Argument "5 5 5" isn't numeric in numeric ne (!=) at fluff.pl line 26,
+ <IN> line 9.
Use of uninitialized value $_ in pattern match (m//) at fluff.pl line 
+26, <IN> line 9.
Argument "6 6 6" isn't numeric in numeric ne (!=) at fluff.pl line 26,
+ <IN> line 9.

  elsif ($line =~ /\S/) {
      push (@arr, "$line\n");
      next;
  }

#!/usr/bin/perl
use strict;
use warnings;
...
  }
 }
create_file if @arr;