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