Select Code to Download

@ARGV=$0; $GR=@AV+$=; # everything up to the + sign must be unchanged
$_=<>; # read first (only) line of file
...
# print;
s/[^k]+?kk(.+)kk.+/$+/; # get rid of everything but the magic word(s)
print$_;