C_Q1.pl

#!/usr/bin/env perl

my $a="AC099545.1-201";
print ("$1 \n") if ($a=~/(\w+\.\d{1})/);