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