Help for this page

Select Code to Download


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