my $string = "abcde";
if ($string =~ m/ab/){
}
else{
}
if ($string =~ m/ac/){
}
else{
}
bXkgJHN0cmluZyA9ICJhYmNkZSI7CgppZiAoJHN0cmluZyA9fiBtL2FiLyl7CglwcmludCAiMTogT0tcbiI7Cn0KZWxzZXsKCXByaW50ICIxOiBOT0tcbiI7Cn0KCmlmICgkc3RyaW5nID1+IG0vYWMvKXsKCXByaW50ICIyOiBOT0tcbiI7Cn0KZWxzZXsKCXByaW50ICIyOiBPS1xuIjsKfQ==