my $tftp = <<'__EOI__';
DeviceInformation:
Contact: NOC 111-222-3333
Hostname: bob
Location: Creek
Manufacturer: Cisco
Model: WS-C3750G-48TS-S (C3750 series)
OSVer: 12.2(46)SE
Processor: WS-C3750G-48TS (PowerPC405)
ROMVer: 12.2(25r)SEE4
SerialNumber: Z4CF,FOC688
ServiceTypes: Power
SystemImage: flash:c3750-advipservicesk9-mz.122-46.SE.bin
SystemMemory: 134209536
__EOI__

my ($image) = $tftp =~ /^SystemImage:\s*([^\n]+)/m
   or die("No SystemImage\n");

print("$image\n");  # flash:c3750-advipservicesk9-mz.122-46.SE.bin