get system status:

Version: FortiGate-60D v5.0,build4459,140410 (GA)
Virus-DB: 23.00950(2015-03-02 19:54)
Extended DB: 23.00950(2015-03-02 19:53)
IPS-DB: 5.00616(2015-02-26 01:09)
IPS-ETDB: 0.00000(2001-01-01 00:00)
Serial-Number: FGT60D46234234234
Botnet DB: 1.00000(2012-05-28 22:51)
BIOS version: 04000023
System Part-Number: P14482-03
Log hard disk: Available
Internal Switch mode: interface
Hostname: HOSTNAME
Operation Mode: NAT
Current virtual domain: root
Max number of virtual domains: 10
Virtual domains status: 1 in NAT mode, 0 in TP mode
Virtual domain configuration: disable
FIPS-CC mode: disable
Current HA mode: a-p, master
Branch point: 271
Release Version Information: GA
System time: Tue Mar  3 12:38:43 2015

-------------------------------------------------------------:

##</code><code>##

HOSTNAME # get system status
Version: FortiGate-60D v5.0,build4459,140410 (GA)
Virus-DB: 23.00950(2015-03-02 19:54)
Extended DB: 23.00950(2015-03-02 19:53)
IPS-DB: 5.00616(2015-02-26 01:09)
IPS-ETDB: 0.00000(2001-01-01 00:00)
Serial-Number: FGT60D46234234234
Botnet DB: 1.00000(2012-05-28 22:51)
BIOS version: 04000023
System Part-Number: P14482-03
Log hard disk: Available
Internal Switch mode: interface
Hostname: HOSTNAME
Operation Mode: NAT
Current virtual domain: root
Max number of virtual domains: 10
Virtual domains status: 1 in NAT mode, 0 in TP mode
Virtual domain configuration: disable
FIPS-CC mode: disable
Current HA mode: a-p, master
Branch point: 271
Release Version Information: GA
System time: Tue Mar  3 12:38:43 2015

#HOSTNAME -----------------------------------:


##</code><code>##

#!/usr/bin/perl -w
open DATA, "*.txt";
@file=<DATA>;
while (@file) {
  if (/Hostname\:\s(\S+)/) {
    $hostname=$1;
    print "$hostname\n"
  }
  if (/\:$/) {
    print "# $hostname \n $_";
  }
}