What have you tried? Maybe you should show us some sample code?

use strict;
use warnings;

my @wanted = (1, 2, 3, 4);

for my $test ('1432', '1345', 'brown fox') {
    my $count = grep {$test =~ /$_/} @wanted;
    
    if ($count == @wanted) {
        print "'$test' contains all wanted characters\n";
    } elsif ($count) {
        print "'$test' does not contain all wanted characters\n";
    } else {
        print "'$test' contains no wanted characters\n";
    }
}
[download]

Prints:

'1432' contains all wanted characters
'1345' does not contain all wanted characters
'brown fox' contains no wanted characters
[download]

Which contains some deliberate errors and should not be used for "production" code.