#!/perl/bin/perl


use CGI qw(:header);
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;
use strict;

print header();


use warnings 'all';

my $directory = "/test";
my $new_file = "$directory/test.txt";

my $out_put;

open(FH,'<',$new_file) || die $!;

my @test = <FH>;

foreach my $line (@test)
{
    $line =~ /<!--\s+\d+nd movie -->\s*(.*?)\s*<!--\s+\/\d+nd movie -->/sgi;
    $out_put = $1;
    print $out_put;
}

close(FH);