...
$concat = $string1 . "#!!#" . $string2;

if ( $concat =~ m/^(.*)(.*)#!!#\1(.*)$/ ) {
...