my $s = 'sbs/c/b/cow.bld:three.bld';
my @a = $s =~ /(\w+\.bld)/g;
print $a[$#a];