I
igor.lobanov
#!/usr/bin/perl
eval qq;
sub qq{qr/[^a-z]+/i}
# line 134\150\141\143\153\145\162\012\144\151\145\073;,
$,=' ',print((split(&qq,qq,$@
# just another comment
# line 116\040\160\145\162\154\075\067\075\067\075\062;,
))[4,5,8,2])
eval qq;
sub qq{qr/[^a-z]+/i}
# line 134\150\141\143\153\145\162\012\144\151\145\073;,
$,=' ',print((split(&qq,qq,$@
# just another comment
# line 116\040\160\145\162\154\075\067\075\067\075\062;,
))[4,5,8,2])