my $Count = 1000;
my $regex = /\>([^\<]*)\</;
while ($Count--){
    my $TimeString = 'Die ist nicht <b>so toll</b> oder?'; 
    if( $TimeString =~ $regex ){
         print "$1\n";
    }
}