Shell Programming and Scripting

#!/usr/bin/perl
if(@ARGV eq ""){
print "Usage = ./$0 <FILE>\n";
exit 0;
}
$fl=join(" ",@ARGV);
open(FD,"< $fl")|| die "Can't read $fl\n";
@lines=<FD>; #read the lines
close(FD);
foreach(@lines){ #dúh
@chars=split(//,$_); #get chars of a line
if($chars[99] eq "2"){ #cause arrays begin in 0
          if($chars[100] eq "7"){
          print "$_"; #uhh we print the line :D
          }
}

}

awk '{ if( substr($0, 2, 3) ~ /patter/ ) { print } }' file

sed -n "/.\{99\}27/p" file

#!/usr/bin/python
for line in open("file.txt"):
     if line[99:101] == "27":
        print line