## script.pl ##
use warnings;
use strict;

my $filename = 'C:/comp/perl-5.16.3/pod/perldelta.pod';

open RD, '<', $filename or die "Can't read: $!";

my @c = <RD>;

my $contents = join '', @c;

close RD or die "Can't close: $!";

my @want =
        $contents =~ /perldelta - what is new for perl v(5)\.(\d+)\.(\d+)\n/;
    die "Can't extract version from $filename" unless @want;

print "\n@want\n";