#!/usr/bin/perl -w
 
use strict;
 
my $data = join '', <DATA>;
 
my ($filename) = ($data =~ m|^Module: (.*\.cpp)$|ms);
 
$filename =~ s|\n||;
 
print $filename;
 
__DATA__
Module: /org/trans/program
files/dir1/subdir1/subdir2/file1.cpp
some flags
some history