$filename = (split( /\s+/,$line, 8 ))[-1]

##</code><code>##

$filename = (split( ' ',$line, 8 ))[-1]