#!/usr/bin/perl
use strict;
use warnings;

my $line = 'sometext@@sometext';
if ($line =~ m|\@\@|) {
    print "success!\n";
}