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