undef $/;
open (IN, "$ARGV[0]");
my $string=<IN>;
close(IN);
(@arr)=$string =~ m#ORIGIN(.*?)//#gsi;
print @arr;