my $string = 'abcdef'; my $extracted = ''; if ($string =~ m/bce/) { $extracted = $1; } my $extracted2 = ''; if ($string =~ m/ced/) { $extracted2 = $1; } #### my ($extracted) = ($string =~ m/bce/)||('');