if ('abcdefghijklm' =~ qr/$sv/ && $sv =~/^[a-m]{5}$/){
    &do_stuff
}