my $line = "AAA:BBB:CCC";
my $var = $line =~ /.*?:(\w+):.*?$/;
print "$var\n";