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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$orgtext = qr/[Wwhey]/;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$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 number of occurences in $count