alany@2021.com wrote; >>Actually in perl one would say something along the lines of; >> >>stuff() if $data=~m/^JAPH/; > >Not neccessarily: > >while (<$FH>) { > do stuff() if /JAPH/; > > # more stuff >} Of course! But I was actually complaining about the '-characters and more important the original mail had something along the lines of; In C; if(strncmp(string,"foo",3) stuff(); Which only compares the first three characters, hence the need for a ^ in perl! ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe