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