my $wanted  = ($text =~ /.*START (.*) END$/)[0];
my $wanted2 = ($text =~ /.*(START .* END)$/)[0];
my ($x,$y)  = ($text =~ /.*(START (.*) END)$/)[0,1];