Help for this page

Select Code to Download


  1. or download this
    while (<DATA>) {
    next if ! /^DATA/;
    # ...
  2. or download this
    <DATA> for 1 .. 3;
while (<DATA>) {
    # ...
  3. or download this
    my $found_start_of_data;
while (<DATA>) {
...
while (<DATA>) {
    # ...
}
  4. or download this
    # Extract
my ($want) = $data =~ m{(some_regular_expression)};

# Eliminate
$data =~ s{some_regular_expression}{};