use warnings;
use strict;

my @f =( "Figure. 89-9","Figure 12-8","Figure 1.2");
foreach(@f)
{
 if($_=~m/fig(. |[a-z])*(\d+)(\-(\d+))?/i)
                {
                print "  $2-$4 \n";
                }
}