Help for this page

Select Code to Download


  1. or download this
    .WEDNESDAY...MOSTLY SUNNY. HIGHS IN THE LOWER 50S. EAST WINDS 5 TO
    10 MPH.
    .WEDNESDAY NIGHT...MOSTLY CLEAR. LOWS IN THE UPPER 20S. EAST WINDS
    5 TO 10 MPH.
    .THANKSGIVING DAY...PARTLY SUNNY. HIGHS IN THE LOWER 50S.
    
  2. or download this
    @ARGV = 'paz049.txt';
    my $buffer = '';
    ...
    $buffer =~ s/\s+$//;
    $buffer =~ s/\n(?!\.)/ /g;
    my @lines = split /\s*\n\./, $buffer;
    
  3. or download this
    TONIGHT...BECOMING PARTLY CLOUDY. LOWS IN THE MID 20S. NORTHWEST  WIND
    +S AROUND 5 MPH.
    TUESDAY...PARTLY CLOUDY IN THE MORNING...THEN BECOMING SUNNY. HIGHS IN
    + THE MID 40S. SOUTHWEST WINDS AROUND 5 MPH. 
    ...
    SUNDAY...PARTLY CLOUDY IN THE MORNING...THEN BECOMING SUNNY. HIGHS ARO
    +UND 50. 
    SUNDAY NIGHT...PARTLY CLOUDY. LOWS IN THE MID 30S. 
    MONDAY...DECREASING CLOUDS. HIGHS IN THE UPPER 40S.