Thank you all for the help. This works as expected so I will dig deeper in my code.

use warnings;
use strict;
my $line = 'cfperfexh.prof@@/main/1';
print "Success! -- $1\n" if $line =~ /\A(.+)\@\@/;
exit 0;
[download]