use strict;
use warnings;

my $file1 = join "\n", qw( a b c d c );
my $file2 = join "\n", qw(     c d c x );


my $content = "$file2\n$file1";

$content =~ /^(.*)\n.*\1$/s;



(substr $file2,0,length $1)=$file1;

print $file2;