Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
$yrStr =~ s{(-\d+)+(?=-)}{}g;

print qq{$yrStr\n};
  2. or download this
    1992, 1994-1995, 1997-2000, 2002, 2004-2008