use strict;
my $filedata = do {local $/; <DATA>};
my ($ir_value, $ysp_value) = $filedata =~ m/AGF30.*?%.*?(.{10})\n.*?\n
+.*?(.{10})\n/s;
print $ir_value,"\n",$ysp_value;
__DATA__
one line
two line
three line
bla AGF30 foor
four line
feeble %  0123456789
one more
two more  ABCDEFGHIJ
end
[download]

Outputs:

0123456789
ABCDEFGHIJ
[download]

This only works if there are in fact 10 or more characters on the line following the % and there are 10 or more characters in the 2nd and 4th lines following. The ten characters do not include the newline.