Line 117 is straight forward:
$contents =~ /perldelta - what is new for perl v(5)\.(\d+)\.(\d+)\n/;