Help for this page

Select Code to Download

Select or download this

foreach my $line (@arr) {
    if( $line =~ m/^([^=]+)=(.*)/ ) {
...
        warn "Unhandled line '$line'";
    };
};