Help for this page

Select Code to Download


  1. or download this
    my %row = m/\s*(\w+)\S*\s+(\S.*)/g;
  2. or download this
    $_ = <<DATA;
    Detail:              Some really nice infos these are 
...
                       but there is a solution
DATA
my %row = m/\s*(\w+):\s+(\S[^:]+)/gs;
  3. or download this
    $_ = <<DATA;
    Detail:              Some really nice infos these are 
...
        die "Unknown input data [$_]";
    };
};