undef $/;

open (FILE, $ARGV[0]) or die "unable to open FILE\n";

my $input=<FILE>;
close(FILE);

my @final=();

while ($input=~m#ORIGIN(.*?)//#gsi)
{
	
	push(@final,$1);
}

print @final;