Select Code to Download

#! /usr/local/bin/perl -w      # 1
                               # 2
...
else {                         # 15
    print "nothing\n";         # 16
}                              # 17

foo contains [ok]
Use of uninitialized value in string eq at ifbug line 9.
nothing

awk -F: 'substr($1,0,1)=="p" {print $3}' /etc/passwd
perl -F: -lane 'substr($F[0],0,1)eq"p" and print $F[2]' /etc/passwd