Shell Programming and Scripting

 #!/usr/bin/perl -w

open IN,"LIST_ALL_AWK";

$output_file="LABELS";

open OUT,">$output_file";

$line=<IN>;

 $identity=$line;
 @fields = split(/ /,$identity);
#print $fields[4]."\n";
if ($fields[4] =~m "POLY")
{
print   " 0 $line";
}
else
{
print "1 $line";

}

$
$ cat -n myfile.txt
     1  ABCA10 DIFF VALUES P203S POLY
     2  ABCA1 DIFF VALUES A1046D
     3  ABCA4 DIFF VALUES D846H POLY
     4  ABCA4 DIFF VALUES Wb
     5  ABCA4 DIFF VALUES POLY E238
     6  ABCA5 DIFF VALUES A1223 poly
     7  ABCA6 DIFF VALUES Poly Y7789
$
$ # POLY only at the end ?
$
$ perl -ne '{print /POLY$/ ? 0 : 1," $_"}' myfile.txt
0 ABCA10 DIFF VALUES P203S POLY
1 ABCA1 DIFF VALUES A1046D
0 ABCA4 DIFF VALUES D846H POLY
1 ABCA4 DIFF VALUES Wb
1 ABCA4 DIFF VALUES POLY E238
1 ABCA5 DIFF VALUES A1223 poly
1 ABCA6 DIFF VALUES Poly Y7789
$
$ # POLY anywhere in the line ?
$
$ perl -ne '{print /.*POLY.*/ ? 0 : 1," $_"}' myfile.txt
0 ABCA10 DIFF VALUES P203S POLY
1 ABCA1 DIFF VALUES A1046D
0 ABCA4 DIFF VALUES D846H POLY
1 ABCA4 DIFF VALUES Wb
0 ABCA4 DIFF VALUES POLY E238
1 ABCA5 DIFF VALUES A1223 poly
1 ABCA6 DIFF VALUES Poly Y7789
$
$ # POLY only at the end and case insensitive ?
$
$ perl -ne '{print /POLY$/i ? 0 : 1," $_"}' myfile.txt
0 ABCA10 DIFF VALUES P203S POLY
1 ABCA1 DIFF VALUES A1046D
0 ABCA4 DIFF VALUES D846H POLY
1 ABCA4 DIFF VALUES Wb
1 ABCA4 DIFF VALUES POLY E238
0 ABCA5 DIFF VALUES A1223 poly
1 ABCA6 DIFF VALUES Poly Y7789
$
$ # POLY anywhere in the line and case insensitive ?
$
$ perl -ne '{print /.*POLY.*/i ? 0 : 1," $_"}' myfile.txt
0 ABCA10 DIFF VALUES P203S POLY
1 ABCA1 DIFF VALUES A1046D
0 ABCA4 DIFF VALUES D846H POLY
1 ABCA4 DIFF VALUES Wb
0 ABCA4 DIFF VALUES POLY E238
0 ABCA5 DIFF VALUES A1223 poly
0 ABCA6 DIFF VALUES Poly Y7789
$
$