Use this below code It will help you,

    while( <DATA> ) {
    foreach ( split "<b>" ) {
        (my $name) = $_ =~ /(\w+\s?\w.*)\<\/b\>/;
        print "$name\n" if ( defined( $name ) );
      }
   }
[download]