#while(<DATA>){
# Do something with the data here
#}
#__DATA__
# The actual data
#Or you could use the $_ explicitly
#while($_=<DATA>){
# Do something with the data here
#}
#__DATA__
# The actual data
#Or use another variable instead of $_ as follows:
#while($inputline=<DATA>){
# Do something with the data here
#}
#__DATA__
# The actual data
while(<DATA>){
print if /A/; # Print the line if it matches A
}
__DATA__
A
B
I
N
J
K
|