#!/usr/local/bin/perl

open(F, 'in.txt'); 
$f = join('', <F>);
close(F);

@ar = $f =~ /ROM=(.+?)\s/g;

open(OUT, '>> oit.txt');

foreach (@ar)
   {
	print OUT "$_\n";
   }

close(OUT);