#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use open qw /:std :utf8/;

$\ = "\n";
die "wrong param count" unless scalar @ARGV == 1;
open my $F, '<', $ARGV[0] or die "open() error: $!";
my $text;
$text .= $_ while <$F>;
close $F;
my ($stih) = $text =~ /ASPuskin (.+?) end/smi;
print $stih;