c:\@Work\Perl\monks\kanikas16>perl -wMstrict -le
"use 5.010;
 ;;
 my $s = '(1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 '
       .  '2 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 '
       .  '3 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 '
       . '10 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 '
       . '11 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 '
       . '987 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0)'
       ;
 print qq{<<$s>> \n};
 ;;
 my $bar = qq{\n} . 'x' x 35 . qq{\n};
 $s =~ s{ \A \( \K }{\n}xms;
 $s =~ s{ \d+ \s+ (?: [01] \s+){17} \K }{$bar}xmsg;
 print qq{<<$s>>};
"
<<(1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 2 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 3 1 1
 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 10 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 11 1 1 0 0 0
 1 0 0 0 1 0 0 0 0 0 0 0 987 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0)>>

<<(
1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
3 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
10 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
11 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
987 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0)>>