Help for this page

Select Code to Download


  1. or download this
    while( <$fh> ){
  if(/(\S+)\s+(\S+)/){
...
  }
}
  2. or download this
    warn 'scalar ', /(\S+)\s+(\S+)/;
warn 'list ', join '|', /(\S+)\s+(\S+)/;