Help for this page

Select Code to Download

Select or download this

while ( <FILE> ) {
    print $1 if /^--from\s*([^@\s]+)/;
...
    or:

print $1 if /^--from\s*([^@\s]+)/ while <FILE>;