#!/usr/bin/perl -l

# http://perlmonks.org/?node_id=1178018

use strict;
use warnings;

while(<DATA>)
  {
  print /\.{3}(.*?)\.{3}/;
  }
  
__DATA__
...FLASH FREEZE AND AREAS OF BLACK ICE... Temperatures will continue t
+o fall in the wake of a strong cold front as brisk and gusty west to 
+northwest winds usher in much colder air. As temperatures drop into t
+he 20s lingering standing water on roads and other untreated surfaces
+ will freeze up creating hazardous driving and walking conditions. In
+ addition,
[download]