Select Code to Download

$orgtext = Whey; # this one right here
$newtext = Popcorn;

$orgtext = /[Ww]hey/; # this one right here
$newtext = Popcorn;

$orgtext = ( $_ =~ /[Ww]hey/ );

$orgtext = qr/[Wwhey]/;

$orgtext = /<form[.*]?*\/form>/; # this one right here $newtext = bloc
+k;

$orgtext = qr/<form.*?\/form>/sg; # s is needed so that "." matches ne
+wline

$intext =~ s/$orgtext/$newtext/ms;
# the ms is for coping correctly with newlines (that can easily appear
+ in a binary).
...
# replaces ALL occurrences of orgtext with newtext and places the numb
+er of occurences in $count