#perl
use strict;
use utf8;
use open qw(:std :utf8);
my $filename = 'rasp.html';
open(my $fh, '<:encoding(UTF-8)', $filename)
	or die "Could not open file '$filename' $!";

while ($_=<$fh>)
	{

	my $lgr="ЛТ4-31А";
	if (/($lgr).+([0-9]{4})/io)
	{
	print "$1 hehe\n";
	}
	}
	#rint "'" . utf8::is_utf8($_) . "'" . "\n";