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++)
{
   if(&should_delete($i))
   {
      delete $array[$i];
   }
}

##

##

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

##

##

for($i=0;$i<@array;$i++)
{
   if(&should_delete($i))
   {
      splice @array,$i,1;
      $i--;
   }
}

##

##

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

##

##

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

##

##

$rec_sep=$/;
undef $/;
$slurp=;
print "Enter something: ";
$something=;

##

##

$rec_sep=$/;
undef $/;
$slurp=;
$/=$rec_sep;
print "Enter something: ";
$something=;

##

##

my $data = do {local $/; };

##

##

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

##

##

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

##

##

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

##

##

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