Help for this page

Select Code to Download


  1. or download this
    @listA = ('This=That', 'Some=Song');
@listB = ('Other=That', 'Corny=Song');
  2. or download this
    $text =~ s/.+?=/$new_text=/;
  3. or download this
    foreach (@listA, @listB) {   # or just one of the two, whatever
   # set $new_text to whatever you want
   s/.+?=/$new_text=/;
}
  4. or download this
    s/.+?(?==)/$new_text/;