AP
my $file_content = do{local(@ARGV,$/)=$filename;<>};—кул
Size: a a a
AP
my $file_content = do{local(@ARGV,$/)=$filename;<>};—кул
sA
SZ
sA
IB
my $file_content = `cat $file_name`;
SZ
AP
IB
AP
IB
AP
AP
SZ
SZ
use Data::Dumper;
sub Devel::StackTrace::_ref_to_string { Data::Dumper->Dump [$_[1]] };
SZ
sA
SZ
SZ
sA
sA