Try using something to this effect.
open (8, "c:\file.txt")
$x = readline(8)
$y = instr ($x, "Created:") ; searches for the start of the string
$result = substr ($x, $y+14,2); tells kix to asign the result to $result