Select Code to Download

while($some_data=~ m/some_regex/)
{
    # Do some stuff
}

while($some_data=~ m/some_regex/g)
{
    # Do some stuff
}

$to_replace='some_string';
$my_string=~ s/$to_replace/$better_data/;

$to_replace='a caret looks like ^';
$my_string=~ s/$to_replace/$better_data/;

$to_replace='a caret looks like ^';
$my_string=~ s/\Q$to_replace\E/$better_data/;

$to_replace=qr/^your_regex_here$/;
$my_string=~ s/$to_replace/$better_data/;

while($string=~ m/(reg)(ex)/g)
{
    $string=~ s/$1$2/$1ister/;
}

$string=~ s/(reg)ex/$1ister/g;

$dummy=$string;
while($dummy=~ m/(reg)(ex)/g)
{
    $string=~ s/$1$2/$1ister/;
}

while($string=~ m/(reg)(ex)/)
{
    $string=~ s/$1$2/$1ister/;
}

for($i=0;$i<@array;$i++)
{
...
      delete $array[$i];
   }
}

for($i=0;$i<@array;$i++)
{
...
      splice @array,$i,1;
   }
}

for($i=0;$i<@array;$i++)
{
...
      $i--;
   }
}

@array = @array[grep {!should_delete($_)} 0..$#array];

$rec_sep=$/;
undef $/;
$slurp=<INPUTFILE>;
# Regex matching here ...

$rec_sep=$/;
undef $/;
$slurp=<INPUTFILE>;
print "Enter something: ";
$something=<STDIN>;

$rec_sep=$/;
undef $/;
...
$/=$rec_sep;
print "Enter something: ";
$something=<STDIN>;

my $data = do {local $/; <INPUTFILE>};

open COMMAND,'-|','some_command';
$input=<COMMAND>;
...
#....bla bla
wait if $pid
#... bla bla

open COMMAND,'-|','some_command';
$input=<COMMAND>;
...
#....bla bla
wait if $pid
#... bla bla

open COMMAND,'-|','some_command';
$input=<COMMAND>;
...
#....bla bla
waitpid $pid,0;
#... bla bla

undef $_ for keys %SIG;
fork while 1;