# Bad code. Don't copy
while(<>) {
    /^(\w+?)/;
    my($val)=$1;
    # do something with $val.
}