Help for this page

Select Code to Download

Select or download this

while (<FILE>) {
  s/^/[$.]/;
  $file .= $_;
}

Select or download this

if(/(^\[(\d+)\](\S+)\s+(\d+)/m) {
  $mylist{$2} = $3;
  $linenumber = $1;
}