while ( my $source = <F2> ) {