Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;

...
    my ($bar) = $line =~ /, (\d+) bar/;
    return $bar;
}