http://www.perlmonks.org?node_id=1047715


in reply to Need help on regexp

$_ = "abcd_efgh-1.2.3-hjik-3.4.5.tar.gz"; /^(\w+-(?:\d|\.)+)[$-]?/; print $1;