my $s1 = 'hallo, welt';
my $s2 = 'hallo';
my $s3 = 'welt';

print "\$s1 matcht auf hallo\n" if $s1 =~ m/hallo/;
print "\$s2 matcht auf hallo\n" if $s2 =~ //;
print "\$s3 matcht auf hallo\n" if $s3 =~ //;