# max ein '@' und min. ein '.' im String
if ( 1 >= ( $string =~ m/[@]/ ) && $string =~ m/[.]/ ) {
}