usr/bin/perl;

by Mumu

use strict;
use warnings;

chdir "/Users/mumu/Documents/programming/scifi/Round12_Barcode";
open (my !";
open (my !";

my line=<line;
chomp line =~s/(\W+)//g;
#next if $line !~/\w/;

$i++;

print $out "index", $i, "\t", $line, "\n";

}