#!/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,