1# Simple grep to retrieve the compiler version 2use strict; 3my $a = ""; 4my $n = 0; 5while (<>) { 6 next unless (/\S/ and 7 not /\// and 8 not /exit/ and 9 not /error/ and 10 not /Error/ and 11 not /ERROR/ and 12 not /invalid/ and 13 not /missing/ and 14 not /FOR NON-COMMERCIAL USE ONLY/ and 15 not /WARNING/ and 16 not /Warning/ and 17 not /warning/ and 18 not /option/ and 19 not /\\/ and 20 $n < 10); 21 $n++; 22 $_=~ s/\n/\\n/g; 23 $a .= $_; 24} 25$a =~ s/\\n$//g; 26print $a; 27