⌨️МетаTelegramExtractor.Pl

#!/usr/bin/perl
use strict;
my $in_message = 0;
while (<>) {
  if ($in_message) {
    if ($_ =~ m/\<\/div\>/) {
      $in_message = 0;
    } else {
      print $_;
    }
  } else {
    if ($_ =~ m/\<div class\=\"text\"\>/) {
      $in_message = 1;
    }
  }
}