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

##</code><code>##

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